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1  Introduction 


l%e  wi<iem>re*d  application  of  adhesively  bonded  joints  has  necessitated  the  development  of  methodology 
to  ^edkt  ultimate  static  joint  strength  and  service  life  under  cyclic  loading.  Due  to  the  complexity  of 
modelling  adhesive  /jint  response,  analytical  treatments  are  limited  to  highly  iderdized  joint 
cooilgar^ions  and  simplilied  assumed  stress  states,  applied  loading  and  material  behavior.  To  overcome  these 
Iknit^kms,  a  specialized  finite  element- based  numerical  approach  is  advocated  to  provide  a  versatile  approach 
to  analyze  actual  bonded  joint  concepts  with  complex  geometries,  baul  paths  and  support  conditions.  To 
enhance  a  finite-element  based  methodology,  special  2-D  and  3-D  layered  elements  have  been  devebpwd  in 
Rrfeience  [1]  to  improve  the  computatbnal  efficiency  and  accuracy  of  determining  stresses  in  adhesive  joints. 
Ihe  speciid  2-D  and  3-D  layered  continuum  elements  are  formulated  using  the  hybrid  stress  technique  to 
expiicitty  enforce  stress  equilibrium  throughout  the  element  domain  and  stress  continuity  conditions  at  layer 
interfaces.  In  an  extensive  investigation  presented  in  Reference  [1],  optimum  element  conllgur^bns  have 
been  determined  and*  demonstrate  improved  performance  compared  to  standard  displacement-based  finite 
ekmmts  in  predicting  jmnt  stresses. 

a 

Hiis  report  detaib  the  use  of  several  special  2-D  and  3-D  continuum  elements  in  the  commercial  finite 
element  code  ABAQUS  through  a  developed  user-defined  subroutine.  The  elements  are  specialized  for 
the  analysis  of  adhesive  joints  by  incorporating  a  layered  hybrid  formulation  to  accurately  model  the  adhe- 
sive/adherend  interface  and  are,  thus,  referred  to  as  ‘adhesive  elements’.  The  adhesive  elements  are  currently 
restricted  to  linear  elastic  behavior  and  a  geometric  constraint  is  imposed  which  requires  that  all  element 
layers  are  rectangular.  To  permit  the  representatbn  of  composite  laminate  adherends  and  property  variation 
throtti^  the  adhesive  layer,  material  properties  are  input  as  orthotropic  laminae  within  each  ebment  layer. 
In  addition,  2-D  adhesive  elements  are  supported  for  arbitrary  orientation  in  the  global  X-Y  plane  and  3-D 
d«nents  may  be  arbitrarily  oriented  in  space.  Ebment  stress  and  strain  output  may  be  selected  in  either 
^bbal  or  local  coordinate  systems. 

A  brief  description  of  the  support  of  user-defined  elements  in  ABAQUS  is  presented  in  the  next  section 
Golbwed  by  a  descriptbn  of  the  input  format  established  for  the  adhesive  elements.  The  basic  ebment  li- 
Imury  is  discnaaed  in  subsequent  sectbns  detailing  ebment  configuration,  coordinate  system  convention  and 
oonnnents  on  their  use.  Two  illustrative  numerical  examples  are  presented  demonstrating  the  use  of  selected 
2-D  and  3-D  adhenve  ebments.  Sample  input  and  output  datasets  together  with  the  complete  FOBTRAN 
source  code  perfornung  all  ebment  computatbns  are  presented  in  seprwate  appendices. 

2  User-Defined  Elements  in  ABAQUS 

New  finite  demoUa  may  be  used  with  ABAQUS  via  a  subroutine  denoted  UEL  (for  il,$er£i^!CTneni)  which 
p«rfanni  the  Mceasary  ebment  ownputationa  and  interfaces  with  the  main  ABAQUS  program  through  a 
•trandardized  parameter  list  in  the  subroutine  call  statement. 

^SER  SUBROUTINE  statement  in  the  input  deck  alerts  ABAQUS  to  the  presence  of  user-defined 
mbrouthiea  which  either  immediatelly  follow  this  ds^a  entry  or  are  contained  in  a  separate  fib.  These  sub- 
ronUnes  are  then  compiled  and  linked  to  the  main  ABAQUS  executabb  prior  to  job  execution.  A  complete 
deacriptioo  of  thb  and  other  user-defined  capabilities  in  ABAQUS  may  be  found  in  {2].  Shown  in  Figure  1 
b  Ibe  hnne  fiaraiat  the  UEL  subroutine  with  the  argument  list  used  by  ABAQUS  to  pass  into  the  user- 
defined  aabroutine  all  necessary  information  needed  to  compute  ebment  siffness  matrices.  Once  computed, 
tboae  HMkricea  ate  then  psss«i  back  to  ABAQUS  for  global  asaend>ly  and  probbm  solution.  In  static  analysa, 
data  raeovei^  b  performed  during  a  second  pass  through  the  user-defined  subroutine  after  the  solution  for 
ididud  dhgitaeementa  has  been  obtained.  During  this  phase,  ABAQUS  passes  in  the  nodal  displacements  for 
the  ceatTMt  ebment  from  which  all  ebment  stresses  and  strains  can  be  computed.  In  addition  to  linear  static 
aadtysb,  the  information  passed  into  the  U EL  subroutine  is  sufficient  to  support  material  and  geometric 
nonlinear  asalyab. 

The  complete  source  code  supporting  linear  static  analysis  for  the  special  adhesive  elements  in  ABAQUS  is 

Ibtod  in  Appmdix  A. 
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SUBROUTINE  UEL(RHS,AMATRX3VARS, ENERGY, NDOFEL.NRHS.NSVARS, 

1  PROPS,NPROPS.COORDS,MCRD,NNODE,U,DU,V,A, 

2  JTYPE.TIME.DTIME.KSTEP,KINC,JELEM,PARAMS, 

3  NDLOAD4DLTYP,ADLMAG,PREDEF,NPREDF,LFLAGS, 

4  MLVARX.DDLMAG.MDLOAD.PNEWDT ) 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

C 

C  VARIABLE  AND  ARRAY  DECLARATIONS  FOR  UEL/ABAQUS  INTERFACE 

C 

DIMENSION  RHS(MLVARX,*),AMATRX(NDOFEL,NDOFEL),PROPS{*), 

1  SVARS(I).ENERGY(8),COORDS(MCRD,NNODE),U(NDOFEL). 

2  DU(MLVARX),V(NDOFEL),A(NDOFEL),TlME(2), 

3  PARAMS(*),JDLTYP(MDLOAD,*),ADLMAG(MDLOAD.*), 

4  ‘  DDLMAG(MDLOAD,*),PREDEF(2,NPREDF,NNODE).LFLAGS(5) 


««*«««««*««*«**«***««««•****«♦««**««**««**« 

*♦*  Source  code  for  user-defined  elennents  *** 

**!^t*^4************************************ 


RETURN 

END 


Figure  1.  Format  of  the  user-defined  subroutine  UEL  supporting  the  special  adhesive  elements  in  ABAQUS. 


3  Use  of  Special  Adhesive  Elements  in  ABAQUS 

Three  set*  of  statments  ate  used  to  describe  the  adhesive  elements  in  the  ABAQUS  input  deck.  Each  of 
these  statements  may  be  identified  in  the  sample  input  files  presented  in  Appendices  B  and  C.  The  first  set, 
*USBR  ELEMENT,  defines  the  basic  parameters  of  the  user  elements.  All  parameters  are  mandatory 
sad  the  user  must  set  the  N,  n  and  M  values  as  described  below. 

SutSDfiBUnJl 

(»)  *USER  ELEMENT,  NODES  =N,  TYPE  =  Un,  PROPERTIES  -  M 
(it)  ni.na,... 

where  the  various  input  parameters  are: 

Caed  (i):  NODES  s  N  specifies  the  total  number  of  nodes  present  in  the  adhesive  element  selected. 
TYPE  St  Un  specifies  the  internal  designatbn  of  the  element  through  setting  the 
value  of  n.  Hie  element  type  designation,  n,  will  be  given  in  the  discussions  the  various 
slemeBts  in  feibwing  sections. 

PROPERTIES  St  M  specifies  that  a  user-defined  property  list  of  length  Af  is  to  established 
tot  each  element  m  explained  below. 

Cacd(ii):  This  entry  indicates  the  active  degrees  of  freedom  at  each  node  in  the  element. 

Foe  2-D  elements,  this  list  is:  1,2;  for  3-D  elements,  this  list  is:  1,2,3. 
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TlieMC<HKi  entry,  *UEL  PROPERTY ,  is  the  primary  list  of  input  data  used  to  compute  element  quanti¬ 
ty  for  each  adhesive  element.  The  material  input  has  been  made  general  to  allow  the  input  of  composite 
lamhiiUe  material  f<»  the  adherends,  or  to  specify  property  variations  in  the  adhesive  layer.  The  size  of  this 
list  it  determined  by  the  user  as  function  of  the  total  nund>er  of  plies  in  each  of  the  element  layers.  Only 
a  angle  ply  would  be  specified  for  a  homogeneous  material  whereas  any  number  may  be  specified  to  define 
laminate  properties.  ABAQUS  requires  for  each  line  in  the  property  list  that  all  quantities  be  expressed  as 
real  numbers  in  free  format  with  up  to  eight  entries  per  line  -  missing  entries  are  simply  treated  as  zeros.  In 
the  basic  fmrmat  of  the  property  list  shown  below,  the  total  length  of  the  property  list  is  calculated  as 

k 

M  =1  8(1 +  Yi[2NLAYi  +  l]) 

i 

wtete  k  is  equal  to  the  number  of  layers  in  the  element  and  NLAYi  is  the  number  of  plies  used  within  the 
i**  layer.  This  length  is  then  entered  as  a  parameter  on  the  *USER  ELEM ENT  entry. 


jStitynKBt  ygt  n 

(i)  *UEL  PROPERTY,  ELSET=^NM 


Oi) 

NVER,  IPLAN E, 

OUTPUT,  NSIDE 

(iii) 

NPLYu  WDTHi 

(iv) 

PTHKu  01,  El, 

Et, 

Ez, 

Pl2,  P23i  Pl3 

(V) 

Oti,  Gas,  Gsi 

(vi) 

NPLYt,  WDTH2 

(vii) 

PTHK2,  0,,  Eu 

Et, 

Ez, 

PlSi  P23i  P25 

(viu) 

Gij,  Gas,  Gsi 

(ix) 

NPLYa,  WDTHa 

, 

(x) 

PTHKi,  03,  Ex, 

Et, 

Ez, 

Pl2i  P23»  Pl3 

(xi) 

Git,  Gto,  Gsi 

where  the  input  parameters  are  defined  by: 


Card(i): 

Card(ii): 


Card(iii): 


Catd<iv): 


Cani(v): 


NM  »  the  set  Id  of  the  adhesive  element  for  which  the  following  properties  are  to  be  used. 
NVER  designates  a  particular  version  of  an  element  type. 

IPLAN E  is  used  to  select  plane  stress/plane  strain  assumptions  in  the  use  of  2-D  elements. 
For  3-D  elements,  this  field  is  ignored. 

IPLAN E  ^  \  (ox  plane  stress. 

IPLAN E  =  2  for  plane  strain. 

OUTPUT  is  the  element  output  control  flag. 

OUTPUT  =  0  for  surpression  of  element  data  output. 

OUTPUT  =  1  for  output  erf"  stresses  and  strains  in  local  element  coordinates. 

OUTPUT  s  2  for  output  of  stresses  and  strains  in  global  coordinates. 

NSIDE  indicates  the  face  on  which  zero  tractions  are  explicitly  enforced.  This  property  b 
Oily  recognized  by  the  element  types  which  support  this  option. 

NPLYi  is  the  number  of  plies  in  layer  1. 

WDTHi  M  the  width  of  layer  number  1  in  2-D  elements.  The  width  dimension  is  defined  as 
normal  to  the  element  plane.  Thb  entry  is  left  blank  in  3-D  elements. 

PTHKi  is  the  ply  thickness  for  the  first  ply  in  layer  1. 

Oi  is  the  orientation  of  the  first  ply  in  layer  1. 

-  Pis  layer  Younp  moduli  and  Poisson  ratios, 
friz  ~  f'si  are  layer  shear  moduli. 


Caols  (iv)  and  (v)  are  repeated  for  each  ply  specified.  The  data  block  represented  by  cards  (vi)  through 
(via)  fofiow  the  same  format.  The  data  block  represented  by  cards  (ix)  through  (xi)  are  used  only  if  a  third 
dhOMWt  layer  is  presoit  in  the  dement. 
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The  last  entry  is  the  *USER  SUBROUTINE  statement.  As  stated  above,  this  alerts  ABAQUS  to  the 
presence  of  souce  code  which  is  to  be  included  together  with  the  main  execuable  code  prior  to  running  the 
requested  job.  This  data  statement  is  given  by 

(i)  ♦  USER  SUBROUTINE,  INPUT  =  uelJiybrid.f 


where  the  optional  parameter,  INPUT,  specifies  the  name  of  an  external  file  containing  the  source  code  for 
the  user-defined  adhesive  elements.  If  this  parameter  is  omitted,  ABAQUS  assumes  that  the  source  code 
immediately  follows  this  statement. 

The  library  of  adhesive  elements  is  discussed  below. 


4  Special  Adhesive  Elements 

The  element  library  presented  herein  contains  several  2-D  and  special  adhesive  elements  for  general  use 
in  the  analysis  of  bonded  joint  stresses.  These  elements  are  assumed  to  be  used  specifically  for  the  numerical 
representation  of  the  local  re^on  encompassing  the  adhesive  bond  with  standard  elements  representing  all 
other  regions  of  the  joint  adherends.  The  use  of  2-layer  and  3-layer  elements  in  modelling  the  bond  layer  is 
depicted  in  figures  2  and  3.  Specific  details  of  the  specialized  adhesive  elements  are  described  below. 
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Figure  2.  Use  of  the  2-Iayered  elements  in  modelling  an  adhesive  layer. 


Figure  3.  Use  of  the  3-Iayered  elements  in  modelling  an  adhesive  layer. 

4.1  2-D  Adhesive  Elements 

Several  2-D  special  adhesive  elements  have  been  incorporated  in  the  user-defined  subroutine.  The  elements 
differ  in  number  of  layers,  element  order,  assumed  order  of  stress  expansions  and  applied  stress  field  con¬ 
straints.  An  account  of  their  performance  in  predicting  bondline  stresses  is  extensively  examined  in  Reference 
[1].  Details  of  the  2-0  elements,  designated  H2L6N,  H2L10N,  H3L8N  and  H2L13N,  are  discussed  in  the  fol¬ 
lowing  subsections. 

4.1.1  The  H2L6N  Element 

The  co^guration  of  the  H2L6N  element  is  depicted  in  Figure  4.  As  shown,  a  local  element  coordinate 
system  is  defined  at  each  layer  centroid  with  the  local  ^  and  ij  axes  parallel  to  adjacent  sides  of  the  layer. 


Figure  4.  H2L6N  element  configuration  and  local  layer  coordinate  system. 
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The  Q2L6N  element  is  designated  as  TYPE  =  C/1  and  two  versions  are  available  incorporating  complete 
linear  and  quadratic  stress  expansions.  These  versions  are  selected  by  setting  the  element  version  param¬ 
eter  as  NVER  s  11  and  NVER  ^  12,  respectively.  The  H2L6N  element  is  also  supported  for  use  as  an 
end-elenMOit  in  which  zero  tractmn  conditions  are  enforced  in  the  r^y  stress  component.  This  version  is 
selected  as  NVER  =  13  and  the  input  parameter  NSIDE  is  used  to  select  the  traction-free  element  side 
by  setting  the  property  parameter  NSIDE  ^  t  where  i  is  indicated  by  the  Ft  designation  in  the  above  figure. 

This  element  has  demonstrated  excellent  convergence  properties  in  a  study  of  bondline  stress  prediction 
in  sin^e-1^  joints.  The  linear  field  used  in  version  11  yields  good  convergence  behavior  but  the  quadratic 
field  used  in  version  12  should  be  selected  if  a  couse  mesh  is  used  along  the  bond  axis.  The  increase  in 
cmnputatbnal  cost  is  minimal. 


4.1.2  The  H2L10N  Element 

The  configuration  of  the  H2L10N  element  is  depicted  in  Figure  5.  As  shown,  a  local  element  coordinate 
system  is  defined  at  each  layer  centroid  with  the  local  (  and  q  axes  parallel  to  adjacent  sides  of  the  layer. 


Figure  5.  H2L10N  element  node  configuration  and  local  layer  coordinate  system. 

The  H2L10N  element  is  designated  as  TY  PE  —  U2  and  two  versions  are  available  incorporating  complete 
quadratic  and  cubic  stress  expansions.  These  versions  are  selected  by  setting  the  parameter  NVER  =11 
and  NVER  s  12,  respectively. 

The  H2L10N  element  formulation  has  a  higher-order  strain  field  representation  in  the  normal  bondline 
dfirectioa.  However,  this  selective  increase  in  the  degree  of  freedom  representation  in  the  bond  thickness 
direction  has  not  demonstrated  an  overall  improvement  in  bond  stress  prediction  in  the  single-lap  joint  case 
over  the  H2L6N  element.  It  is  maintained  in  the  eleirrent  library  for  a  further  assessment  in  analyzing  other 
joint  amfigurations. 
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4.1.3  The  H2L13N  Element 


The  configuration  of  the  H2L13N  element  together  with  local  layer  coordinate  system  convention  is  depicted 
in  Figure  6. 


Figure  6.  H2L13N  element  node  configuration  and  local  layer  coordinate  system. 


The  H2L13N  el«nent  is  designated  as  TY PE  =  f/3  and  two  versions  are  contained  in  the  element  library.  A 
diflieulty  was  encountered  in  Reference  [1]  in  the  formuiatbn  of  this  element.  It  was  found  that  adopting  a 
hi^ier<order  dkpiacement  field  and  strictly  enforcing  all  stress  field  constraints  inevitably  leads  to  spurious 
kinematic  deformatimi  modes  in  the  resulting  element  stiffness  matrix.  Therefore,  selective  relaxation  of 
some  constraints  were  made  in  the  two  versions  of  this  element.  One  version,  selected  using  NVER  =11, 
incorporates  a  conq>Iete  cubic  stress  field  with  the  addition  of  two  quartic  terms  in  the  sherur  stress  expansion 
which  are  not  constrained  to  enforce  continuity  at  the  element  layer  interface.  These  two  terms  are  added 
to  surptess  zero  en^gy  modes  which  result  from  using  complete  expansions  satisfying  ail  equilibrium  and 
continuity  constraints.  A  second  version,  designated  NVER  =  12,  is  formulated  using  a  complete  quadratic 
field  with  only  stress  continuity  conditions  applied  at  the  layer  interface. 

Hie  performance  of  these  versions  in  the  analysis  of  a  single-lap  joint  configuration  has  shown  that  both 
demonstrate  accurate  stress  predictions  with  element  version  12  showing  a  faster  rate  of  convergence  and 
a  highly  accurate  recovery  of  bondline  stresses.  The  violation  of  strict  coni  ?  lity  enforcement  in  element 
vetskm  11  has  been  shown  to  be  minimal  consequence  due  to  the  high-order  of  the  unconstrained  stress 
expansion  terms. 
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4.1.4  The  H3L8N  Element 

The  configtiratioD  of  the  H2L8N  element  and  local  coordinate  system  is  depicted  in  Figure  7. 
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Figure  7.  H3L8N  element  node  configuration  and  locatl  layer  coordinate  system. 

Tite  H3L8N  element  is  designated  as  TY  PE  =  f/4  and  two  versions  are  available  incorporating  complete 
quadratic  and  cubic  stress  expansions.  These  versions  are  denoted  as  NVER  =  11  and  NVER  =  12,  re- 
^ectively.  The  H3L8N  element  is  atso  supported  for  use  as  an  end^lement  in  which  zero  tractirm  conditions 
are  ^forced  in  the  r,ry  stress  component.  This  version  is  selected  by  setting  NVER  =  13  and  the  NSIDE 
input  parameter  is  set  to  t  from  the  Ft  designations  shown  above  to  select  the  traction-free  element  face. 

The  performance  of  R3L8N  has  been  shown  to  be  accurate  in  the  prediction  of  joint  stresses  in  single-lap 
configurations  with  faster  convergence  rates  obtained  by  using  the  higher-order  cubic  stress  field  in  coarse 
mesh  motkls. 


4.2  3>D  Adhesive  Elements 

Afi  2-D  elements  develr^ped  have  a  theoretical  counterpart  in  a  3-D  formulation,  however,  from  the  study  of 
S'-D  etement  behaviw,  a  single  3-D  solid  element  has  been  developed  and  incorporated  into  the  user-element 
libnay. 


4.3  The  H2L12N  Element 

The  H2L12N  element  configuration  and  local  coordinate  system  are  depicted  in  Figure  8. 


Figure  8.  II2L12N  element  and  local  layer  coordinate  system. 

Hie  H2L12N  element,  designated  as  TY PE  =  1/5,  permits  a  general  adhesive  joint  pianform  to  be  modelled 
and  k  available  in  two  versions  incorporating  complete  linear  and  quadratic  stress  fields.  These  versions  are 
designated  as  NVER  %  11  and  NVER  =  12,  respectively. 

Studies  have  shown  that,  as  in  the  case  of  the  2-D  H2L6N  element,  the  higher-order  quadratic  expansion 
yields  improved  coar-^  mesh  performance  •  for  finer  levels  of  discretization  along  the  bondiine  the  distinction 
between  the  peifcMmance  of  the  two  versions  vanish. 

5  Demonstration  Problems 

The  analysis  of  two  single-lap  joints  are  presented  in  this  section.  Results  are  taken  from  Reference  [1] 
and  used  to  demonstrate  the  use  of  two  representative  adhesive  elements,  namely,  the  2-D  H2L6N  and  3-D 
H2L12N  elements.  The  material  properties  selected  are  given  by. 

Adherend  :  E  =  69000.0  ft  =  0.32 

Adhesive  :  E  3000.0  ft  =  0.36 

All  shnases  are  normalised  Ksolj  ^  ctij/or,f  where  (Zre/  =  P/A  in  which  P  is  an  uniformly  applied  tensile 
load  and  A  is  the  cross-sectiondl  area  of  the  adherend  end. 


5.1  Problem  1:  2>D  Single-Lap  Joint 

Ftfttrea  9  and  10  show  the  geometry  and  boundary  conditions,  respectively,  of  a  2-D  single-lap  joint.  A  state 
ed  plane  strain  is  assumed  to  exist  in  the  joint  and  II2L6N  elements  are  used  to  model  the  adhesive  and 
loeidly  adjacent  refpons  of  the  adhesive. 
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Figure  9.  2-D  Single-lap  joint  geometry. 


X 

Figure  10.  Applied  boundary  conditiona. 


Fitpam  11  a»d  12  show  the  crutvergence  of  modeb  incwporating  10,  25,  50  and  100  H2L6N  elements  alcmg 
the  bornffiae  hi  eompacbon  to  a  reference  solution.  Detaib  of  the  model  descretisation  »  presented  in  Ref¬ 
erence  {!}.  Strees  prwiktioas  wa«  made  hr  the  and  rg^  stress  components  along  the  adhesive/adherend 
interface.  ISement  venmm  12,  incorporating  complete  quadratic  stress  fields,  was  selected  in  generating  these 
resotte.  ‘Xbihow  the  improvement  in  element  performance  over  standard  displacement-based  elements,  the 
same  mod^  were  used  in  which  the  layered  adhesive  elements  were  each  replaced  by  two  4-node  plane-strain 
dbimiits  (CHPEd)  from  the  ABAQUS  library.  As  can  be  seen  in  Figures  13  and  14,  the  purely  dbplacennent- 
hased  ai^tiims  actnidly  converge  away  from  the  reference  sdution  which  validates  the  improvement  in 
dbmenteflkdency  alferded  by  the  layered  hybrid  formulation.  The  ABAQUS  input  deck  and  selected  output 
tMoetaled  adffe  tl^  r^ned  model  using  the  R2L6N  element  b  presented  in  Appendix  B. 


NORMALIZED 


S.2  Problem  II:  3-D  Single-Lap  Joint 

K  lectongular  3-D  single  lap  joint  is  analyzed  using  H2L12N  elements  to  model  the  bond  region  abng  the 
adhesive/adlierend  interface.  The  geometry  is  depicted  in  Figure  15  and  the  applied  boundary  conditions 
Bie  identbal  to  those  presented  above  in  figure  10. 


Figure  15.  3-D  Sin^-iap  joint  geometry. 


The  eonmgence  behavior  is  identical  to  that  shown  in  the  2-D  lap  jcnnt  example  presented  above.  For  clarity, 
3-D  M^ntbos  are  depicted  for  a  model  incorporating  100  elements  afong  the  bondline  showing  comparisons 
bHweea  the  special  layered  hybrid  adhesive  element  and  standard  displacement-based  elements  with  a  tefer- 
«Bee  S^tkm.  In  generating  the  displacement-based  solution,  the  same  model  was  used  in  which  the  layered 
B2L1^  elements  were  each  replac^  by  two  8-node  brick  elements  (C3D8)  from  the  ABAQUS  library.  Fig- 
nres  16  and  17  show  predictions  for  and  over  the  bond  interface  using  the  n2L12N  element.  The  r^, 
shew  streai  4»mpooent  is  essentially  zero  for  this  particular  joint  problem  and  b,  therefore,  not  shown.  The 
pni^  diqilaeeineni-based  element  solution  is  shown  in  figures  18  and  19  and  demonstrates  a  convergence 
awi^  ftwn  the  reference  solution.  The  ABAQUS  input  deck  and  selected  output  is  presented  in  Appendix 


6  Conclusion 


A  vamljr  of  2-D  aad  3>D  special  layered  hybrid  element  formulations  have  been  developed  for  the  analysis  of 
boadMae  stresses  in  adhesive  joints.  The  hybrid  stress  method  was  sefected  to  allow  the  explicit  enforcement 
of  la|«r  domain  e^Qibrium  and  interface  continuity  constraints.  In  addition,  for  the  H2L6N  and  H3L8N 
dements,  stress  fi^is  have  been  <krived  to  enforce  sero  traction  conditbns  along  element  sides.  The  elements 
demomtode  in^roved  efficiency  over  similar  displacemenUbased  elements  and  are  fully  supported  for  use  in 
the  coeametclal  finite  element  code  ABAQUS  through  the  development  of  a  user-defined  subroutine.  The 
t«(|aaed  Input  format  has  been  detailed  and  element  performance  denuxistrated  in  two  example  problems. 
Sanqtle  raput  and  output  datasets  together  with  the  complete  source  code  performing  ail  element  computa- 
th»a  have  beat  included  in  separate  appendices.  The  developed  special  adhesive  elements  provide  an  ideal 
basis  (at  further  enhancements  such  as  the  incorporation  of  nonlinear  material  and  geometric  capabilities  to 
aecuridely  model  bondline  stresses  in  complex  adhemve  joint  designs. 
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APPENDIX  A 


Sour«  code  listing  of  subroutine  UEL 
supporting  special  adhesive  elements 
in  ABAQUS. 


c 

Q  ****************************************************************** 

c  **  USER  DEFINED  ELEMENT  SUBROUTINE  UEL  FOR  THE  ABAQUS  CODE  ** 

C  **  INCORPORATING  SPECIAL  LAYERED  ELEMENT  FORMULATIONS  FOR  ** 

C  **  THE  ANALYSIS  OF  ADHESIVE  JOINTS.  ** 

Q  A**********************-***************************************** 

c 

SUBROUTINE  UEL (RHS , AMATRX, S VARS , ENERGY, NDOFEL,  NRHS , NS VARS , 

1  PROPS, NPROPS, COORDS,MCRD, NNODE, U, DU, V, A, 

2  JTYPE, TIME, DTIME, KSTEP, KINC, JELEM, PARAMS, 

3  NDLOAD, JDLTYP,ADLMAG,PREDBF,NPREDF,LFLAGS, 

4  HLVARX, DDLMAG, MDLOAD , PNEHDT  ) 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C 

C  VARIABLE  AND  ARRAY  DECLARATIONS  FOR  UEL/ABAQUS  INTERFACE 
C 

DIMENSION  RHS (MLVARX, « ) , AMATRX (NDOFEL, NDOFEL> , PROPS ( * ) , 

1  SVARS (1) ,ENERGY(8) , COORDS (MCRD, NNODE) ,U(NDOFEL) , 

2  DU (MLVARX), V (NDOFEL), A (NDOFEL), TIME (2 ) , 

3  PARAMS(*),JDLTYP(MDLOAO,*),ADLMAG(MDLOAD,*), 

4  DOLMAG(MDLOAD, *),PREDEF(2,NPREDF,NNODE),LFLAGS(5) 
DIMENSION  HINV(100,100),(aiAT(100,36) 

C 

DATA  EPS  /  l.OD-8  / 

C 

C  TEST  IF  ABAQUS  IS  IN  THE  ELEMENT  DATA  RECOVERY 
C  PHASE  BY  CHECKING  DISPLACEMENTS 
C 

TEST  -  0.0 

DO  I  -  1,  NDOFEL 

TEST  -  TEST  +  ABS(DU(I)) 

END  DO 
C 

IF  (  TEST  .LT.  EPS  )  THEN 
C 

C  COIffUTE  ELEMENT  STIFFNESS  MATRIX 

C 

CALL  HSTIFF(  AHATRX,PROPS,COORDS,HINV,GHAT,TEST,MPROPS, 

1  NDOFEL, MCRD, NNODE, JTYPE, JELEM, NBVAL  ) 

C 

C  SET  RHS  VECTOR  TO  ZERO 

C 

CALL  MXINT  (  RHS (1,1),  NDOFEL,  1,  O.ODO) 

C 

ELSE  IF  (  TEST  .GT.  EPS)  THEN 
C 

C  PERFORM  REQUESTED  ELEMENT  DATA  RECOVERY 

C 

C  CCMPUTE  ELEMENT  G  AND  H  MATRIX 

C 

C»(LL  HSTIFF(  AMATRX,PROPS, COORDS, HINV,GMAT,TEST,NPROPS, 

1  NDOFEL,MCRD,NMODE, JTYPE, JELEM, NBVAL  ) 

C 

CALL  WeCGVf.  COORDS,  PROPS, DU,  HINV,GMAT,  MLVARX, NDOFEL, 

1  NPROPS, MCRD, NNODE, JTYPE, JELEM, NBVAL  ) 

C 

END  IF 
C 

RETURN 

EKD 

C 

C 

C 

SUBRCXTTINB  HST1FF(  AMATRX,PROPS,C(X)RDS,HIHV,GSMBL, TEST, NPROPS,  • 
1  NDOFEL, MCRD, NNODE, JTYPE, JELEM, NBVAL  ) 

********************************************* 


C 

C 
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Q  * 

C  **  ADHESIVE  ELEMENT  STIFFNESS  GENERATION 

Q  it*  ** 

Q  ***‘0[***************'0fiHt*********************** 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C 

DIMENSION  AMATRX{NDOFEL,NDOFEL) , PROPS (*), COORDS (MCRD,NNODE) 

C 

DIMENSION  HMAT<100, 100)  , HINVdOO,  100)  ,  AJINV(3,  3) , 

1  XH{20) ,YH(20) ,ZH(20) ,TMP1(100,100) ,TMP2 (100,100) , 

2  DXSI (20) ,DETA(20) ,DCEE(20) ,BMATS (6,  €0) 

DIMENSION  SMAT (6,6), PMAT (6,100), THETA (100), 

1  GMAT  (100, 36) ,  INDXl  (36)  ,GSMBL(100,  36) ,  HSMBLdOO,  100)  , 

2  PTHKdOO)  ,E1  (100)  ,E2dOO)  ,E3(100) ,  V12  (100) , 

3  V23(100),V13(100),G12dOO),G23dOO),G31(100) 

DIMENSION  WDT(3) ,NLAy(3) ,THK(3) ,ETRN(6,6)  ,STRN(6,  6)  ,TRI (3,3) , 

1  CTRN(36,36) 

C 

DATA  EPS  /  l.OD-8  / 

READ  IN  ELEMENT  DATA  FROM  PROPS  ARRAY  AND 
SET  ELEMENT  PARAMETERS 

CALL  ELDATA(  PROPS, PTHK,  THETA,E1,E2,E3,V12,V23,V13,G12,G23,G31, 

1  MDT, THK, NORD, IPLANE, lOTYPE, NLAYR, NELDIM, NDOFN, INTNOD, 

2  NODNUM, JTYPE, NSIDE, NDV,  INTDOF, NDOFT,  NDOFL,  MORD, NLAY, 

3  NVER  ) 

CALL  MXINT(  GSMBL,100,  36,0.0D0  ) 

CALL  MXIMT(  HSMBL, 100, 100, 0 . OOO  ) 

CHECK  GEOMETRY  OF  ELEMENTS  ON  INITIAL  PAST 

IF  {  TEST  .LT.  EPS  )  CALL  VCHECK  {  COORDS, ITCRD, NNODE, JTYPE, JELEM  ) 

OBTAIN  TRANSFORMATION  MATRIX  BETWEEN  GLOBAL  AND 
LOCAL  ELEMENT  COORDINATES 

CALL  TRANS (  COORDS, CTRN,STRN,ETRN,TRI, JTYPE, MCRD,NNODE  ) 

LOOP  OVER  AND  ASSEMBLE  ALL  ELEMENT  LAYERS 

DO  K  -  1,  NLAYR 

LAYER  -  K 
TFAC  -  1.0 

IF  (  NELDIM  .EQ.  2  )  TFAC  >  NDT(K) 

N  -  (NOTNOM-INTNOT) * (K-1) 

DO  I  -  1,  NODNUM 

N  -  (NODMUM-INTNOD)*<K-l) 

AX  -  COORDS d,I+N) 

BY  -  COORDS (2, I+N) 

CZ  -  COORDS (3, I+N) 

TRANSFORM  TO  LOCAL  COORDINATES 

XHd)  -  TRId,l)*AX+TRId,2)*BY+TRId,3)*CZ 
YH(I)  -  TRI(2,1)*AX+TRI(2,2)*BY+TRI{2,3)*CZ 
ZH(I)  -  TR1(3,1)*AX+TRI(3,2)*BY+TRI(3,3)*CZ 
END  DO 

COMPUTE  ELEMENT  MATERIAL  PROPERTY  MATRICES 

C»LL  MATPROP (PTHK, THETA, El, E2,E3,G12,G23,G31,V12,V23,V13, 

1  SMAT, NELDIM, IPLANE, MORD, LAYER, NLAY) 
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CALL  MXINT(  HMAT,  100,  100,  O.ODO  ) 

CALL  MXINT(  GMAT,  100,  36,  O.ODO  ) 

STRAIN  VECTOR  CONVENTION:  {EX,EY,EZ,TyZ,TXZ,TXy} 

NRDZ  -  NORD 

IF  (  NEUOIM  .EQ.  2  )  NRDZ  -  1 

DO  IXSI  -  1,  NORD 
DO  JETA  -  1,  NORD 
DO  KCEE  -  1,  NRDZ 

OBTAIN  GAUSS  POINTS  AND  WEIGHTS 

CALL  GAUSS (NORD, NELDIM,  IXSI,  JETA,  KCEE, XSI, ETA, CEE, WEIGHT) 

COMPUTE  SHAPE  FUNCTIONS  AND  THEIR  DERIVATIVES  AT 
THE  CURRENT  GAUSS  POINT 

CALL  SHAPE (NODNUM, NELDIM, XSI, ETA, CEE, DXSI, DETA, DCEE) 

COMPUTE  JACOBIAN  MATRIX,  ITS  DETERMINANT  AND 
INVERSE 

CALL  JACOB (NODNUM, NELDIM, XH,yH,ZH, DXSI, DETA, DCEE, 

1  AJINV,DETJ  ) 

COMPUTE  MATRIX  OF  ASSUMED  STRESS  FUNCTIONS  AT 
CURRENT  GAUSS  POINT 

CALL  ASTRSS (XSI, ETA, CEE, JTYPE, LAYER, NELDIM, NODNUM, 

1  PMAT,THK,NBVAL,XH,YH, ZH,NSIDE,NVER} 

C<»<PUTB  THE  STRAIN-DISPACEMENT  MATRIX  BMATS 

CALL  BMAT (NELDIM, MORD, NODNUM, NDOFL, AJINV, DXS I , DETA, 

1  DCEE, BMATS) 

FORM  G  AND  H  MATRICES 

CALL  MXATB(PHAT, BMATS, TMP2, 6, 6, 100,NBVAL, MORD, NDOFL) 

INTEGRATE  ®1AT  COEFFICIENTS 

DO  II  -  1,  NBVAL 
DO  JJ  -  1,  NDOFL 

0!AT(11,JJ)  -  GMAT(I1,JJ)+DETJ*WEIGHT*TFAC*TMP2(I1, JJ) 
END  DO 
END  DO 

CALL  MXMUL  ( SMAT ,  PMAT  ,  TMP  1,6,6,100,  MORD ,  MORD ,  NBVAL ) 

CALL  MXATB(PMAT,TMP1,TMP2,6, 100, 100, NBVAL, MORD, NBVAL) 

INTEGRATE  HMAT  COEFFICIENTS 

DO  II  -  1,  NBVAL 
DO  JJ  -  1,  NBVAL 

HMAT  (II,  JJ)  -  HMATdl,  JJ)+DETJ*WEIGHT*TFAC*TMP2(II,JJ) 
Em)  DO 
END  DO 

END  DO 
END  DO 
Ein>  DO 

ASSEMBLE  GNAT  AND  HMAT 
N-  (NODNrai-INTNOD)*(K-l)*NDOFN 
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DO  I  -  1,  NBVAL 
DO  J  -  1,  NDOFL 

GSMBL(I,J+N)  -  GSMBL{I,J+N)  +  GMAT<I,J) 

END  DO 

DO  J  -  1,  NBVAD 

HSHBL(Z,J)  -  HSMBL(I,J)  +  HMAT{I,J) 

END  DO 
END  DO 
C 

END  DO 

C(»4PUTE  THE  INVERSE  OF  HSMBL 
NDIM  -  100 

CALL  INVERS (HSMBL, HINV,1NDX1, NDIM, NBVAL) 

IF  (  TEST  .GT.  EPS  )  RETURN 
COMPUTE  STIFFNESS  COEFFICIENTS 

CALL  MXMUL (HINV, GSMBL, TMPl, 100, 100, 100, NBVAL, NBVAL, NDOFT) 

CALL  MXATB (GSMBL, TMPl, AMATRX, 100, 100, NDOFT, NDOFT, NBVAL, NDOFT) 

TRANSFORM  ELEMENT  STIFFNESSES  TO  GLOBAL  COORDINATES 

CALL  MXMUL (AMATRX, CTRN, TMPl, NDOFEL, 36, 100, NDOFEL, NDOFEL, NDOFEL) 
CALL  MXATB (CTRN, TMPl, AMATRX, 36, 100, NDOFEL, NDOFEL, NDOFEL, NDOFEL) 

RETURN 
END 


SUBROUTINE  RECOV(  COORDS, PROPS, DU, HlNV,<aiAT,MLVARX, NDOFEL, 

1  NPROPS,MCRD,NMODB,JTYPE,JELEM, NBVAL  ) 

A********************'***********'*************'**** 

**  *★ 

**  PERFORM  REQUESTED  ELEMENT  DATA  RECOVERY  ** 

**  ** 

************************************************* 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  PROPS ( * ) , COORDS (MCRD, NNODE) , DU (MLVARX) 

DIMENSION  HINV(100,100),TMP2{100,100),TMP1(100,100) ,AJINV(3,3) , 

1  STRN(6,6)  ,ETRM(€,6),XH(20),YH(20)  ,ZH(20) , 

2  ULI (36) ,UL(36) ,DXSI (20) ,DETA(20) ,DCEE(20) 

DIMENSION  PMAT<6,100) ,BMATS(6,60} ,QtAT (100, 36) ,BETA(100) , 

1  THETA(100),IIDT(3),THK(3>,PTHK(100)  ,E1(100) , 

2  B2  (100) ,  E3  (100) ,  V12  (100) ,  V23  (100) ,  V13  (100) , 

3  G12 (100) ,G23 (100) ,G3l (100) ,TRI (3, 3) 

DlMENSKm  CTRN(36,  36) , SCOMP (27,  6)  ,ECOMP  (27,  6)  ,NLAY(3) 

CU(LL  ELDATA(  PROPS, PTHK,THETA,E1,E2,E3,V12,V23,V13,G12,G23,G31, 

1  NDT, THE, NORD, IPLANE, lOTYPE, NLAYR, NELDIM, NDOFN, INTNOD, 

2  WXJNUM,  JTYPE,NSIDE,NDV,  INTDOF, NDOFT, NDOFL,  MORD,NLAY, 

3  NVER  ) 

IP  (  lOTYPB  .EQ.  0  )  RETURN 
1IRITE(6,6794)  JELEH 

■OBTAIN  ORTHOGOTAL  AND  TFNSORIAL  TRANSFORMATION  MATRICES  FOR 
DISPLACmiENTS,  STRESSES  AND  STRAINS 

<LU,L  TRANS  (  CCK>RDS,  CTRN,  STRN,  ETRN,  TRI,  JTYPE,  MCRD,  NNODE  ) 
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TRANSFORM  GLOBAL  DISPLACEMENTS  INTO  LOCAL  SYSTEM 

CALL  MXMOL(CTRM,DU,ULI,36,MLVARX,36,NDOFEL,NDOrEL, 1) 

COMPUTE  BETA  VALUES  FOR  STRESS  RECOVERY 

CALL  MXMUL(®«AT,ULI,TMP1, 100, 36, 100,NBVAL,NDOFEL, 1) 

CALL  MXMUL(HINV,'n4Pl,BETA,100,100,100,NBVAL,NBVAL, 1) 

LOOP  OVER  ALL  ELEMENT  LAYERS 

DO  K  -  1,  NLAYR 

CALL  MXIMT<  SCCBfP,  27,  6,  O.ODO  ) 

CALL  MXINT{  ECCWP,  27,  6,  O.ODO  ) 

LAYER  -  K 

COlPUTE  THE  ELEMENT  STRESS  RECOVERY  MATRICES 

N  -  (N(H>NUM-INTNOD)  *  (K-1) 

DO  I  «  1,  NODNUM 

AX  -  COORDS (1,I+N) 

BY  -  COORDS {2, I+N) 

CZ  -  COORDS  <3, 1-t-N) 

TRANSFORM  TO  LOCAL  COORDINATES 

XH<1)  -  TRI(1,1)*AX+TRI(1,2)*BY+TRI(1,3)*CZ 
YH(I)  -  TRI{2,l)*AX+TRI(2,2)*By+TRI(2,3>*CZ 
ZH(I)  -  TRI{3,1)*AX+TRI(3,2)*BY+TRI(3,3>*CZ 
END  DO 

EXTRACT  DISPLACEMENT  SET  FOR  THE  CURRENT  LAYER 

N  -  (NOT>NUM-INTN<HJ)*(K-l)*NDOFN 
DO  I  -  1,  NDOFL 
DL(l)  -  ULI(I+N) 

END  DO 

COMPUTE  STRESSES  AND  STRAINS  AT  SELECTED 
ELEMENT  COORDINATES 

ZET  •  0 

CALL  lOPNTS ( lET, HTPS,  OTYPE, NELDIM, NORD, LAYER, 

1  XS1,ETA,CBE) 

DO  lET  >■  1,  NTPS 

CALL  lOPNTSdET, NTPS, JTYPE, NELDIM, NORD,  LAYER, 

1  XSI,ETA,CEE) 

COMPUTE  SHAPE  FUNCTIONS  AMD  THEIR  DERIVATIVES  AT 
THE  CURRENT  RECOVERY  POINT 

CALL  SHAPE (NODNUM, NELDIM, XSI, ETA, CEE, DXSI, DETA, DCEE) 

COMPUTE  JACOBIAN  MATRIX,  ITS  DETERMINANT  AND  INVERSE 

CALL  JACOB (NODNUM, NELDIM, XH, YH,  ZH, DXSI, DETA, DCEE, 

1  AJINV,DETJ  ) 

C<»!PUTE  MATRIX  OF  ASSUMED  STRESS  FUNCTIONS  AT 
CURRENT  GAUSS  POINT 

CALL  ASTRSS (XSI , ETA, CEB, JTYPE, LAYER, NELDIM, NODNUM, 

1  PMAT,THK,NBVAL,XH,YH,ZH,NSIDE,NVER  ) 
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COMPUTE  THE  STRAIN-DISPACEMENT  MATRIX  BMATS 

CALL  BMAT {NELDIM, MORD, NODNUM, NDOFL, AJINV, DXS I , DETA, 

1  DCEE, BMATS) 

COMPUTE  ELEMENT  STRAINS  AT  OUTPUT  POINT 

CALL  MXMUL{BMATS,UL,TMP1V6,36,100,MORD,NDOFL, 1) 

DO  IS  -  1,  MORD 

IF  {  lOTYPE  .EQ.  2)  THEN 

TRANSFORM  STRAINS  IN  LOCAL  ELEMENT  COORDINATES  TO 
GLOBAL  SYSTEM 

DO  IT  -  1,  MORD 

ECOMPdET,  IS)  -  ECOMP(IET,IS)+STRN(IT,IS)*TMPl(IT,  1) 
END  DO 
ELSE 

EC<»1P(IET,IS)  -  TMP1(IS,1) 

END  IF 
END  DO 

CALL  MXMUL(PMAT,BETA, TMP2, 6, 100, 100,MORD, NBVAL, 1) 

DO  IS  •  1,  MORD 

IF  (  lOTYPE  .EQ.  2)  THEN 

TRANSFORM  STRESSES  IN  LOCAL  ELEMENT  COORDINATES  TO 
GLOBAL  SYSTEM 

DO  IT  -  1,  MORD 

SC<»*P(IBT,IS)  -  SCOMP(IET,IS)+ETRN(IT,IS)*TMP2(IT,l) 
END  DO 
ELSE 

SCOHP<IET,IS)  «  TMP2<IS,1) 

END  IF 
END  DO 

END  DO 

OUTPUT  ELEMENT  STRESSES  AND  STRAINS  AT  SELECTED  POINTS 

IF  (  NELDIM  .EQ.  2  )  THEN 

IF  (  lOTYPE  .EQ.  1  )  WRITE(6,892)  LAYER 

IF  (  lOTYPE  .EQ.  2  )  NRITE<6,893)  LAYER 

OUTPUT  LAYER  STRESSES 

DO  lET  -  1,  NTPS 

CALL  lOPNTS (lET, NTPS, JTYPE, NELDIM, NORD, LAYER, 

1  XSI,ETA,CEE) 

1IRITE(6,994)  XSI,ETA,  {SCC»®  (lET, I)  ,ECOMP  <IET,  I) ,  l-l,  3) 

END  DO 

ELSE  IF  (  NELDIM  .EQ.  3  )  THEN 

CXrrPUT  ELEMENT  STRESSES  AND  STRAINS  AT  SELECTED  POINTS 

IF  (  lOTYPE  .EQ.  1  )  WRITE (6, 894)  LAYER 

IF  <  lOTYPE  .EQ.  2  )  MRITE(6,895)  LAYER 

OUTPUT  LAYER  STRESSES 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DO  IBT  -  1,  NTPS 

CALL  lOPNTS (lET, NTPS , JTYPE, NELDIM, NORD, LAYER, 
1  XSI,ETA,CEE) 

WRITE (6, 995)  XSI,ETA,CEE, (SCOMP {lET, I) , I-l, 6) 

END  DO 

IF  (  lOTYPE  .BQ.  1  )  WRITE (6, 896)  LAYER 
IF  {  lOTYPE  .EQ.  2  )  WRITE(€,897)  LAYER 

OUTPUT  LAYER  STRAINS 

DO  lET  -  1,  NTPS 

CALL  lOPNTS (lET, NTPS, JTYPE, NELDIM, NORD, LAYER, 
1  XSI,ETA,CE£) 

WRITE (6, 995)  XSI,ETA,CEE, (ECOMP (IBT, I) , I-l, 6) 

END  DO 

END  IF 

EIB>  DO 


C 

C  F<»MAT  STATEMENTS  FOR  HYBRID  ELEMENT  OUTPUT 
C 

855  FORNAT(///,4SX,'H  YBRID  ELEMENT  DATA  •  ,ih 
848  FORMAT(//,'  ELEMENT  ID:  ',15,//) 

800  FOimAT(/,20X, 'HYBRID  STIFFNESS  MATRIX:',/) 

801  FCNWATC/,  10111} 

815  F<»MAT(1X,I3,2X,10(B9.3,2X)) 

892  FORMAT (20X,/,'STBBSS/STRAIN  OUTPUT  IN  LOCAL  COORDINATES  FOR  LAYER' 

1, 15, //, 2X, ' RECOVERY  POINTS' , 24X, ' STRESS/STRAIN 
2C0M?<X1EIITS',/,3X,'  Cl  CJ' , 9X, ' SXX' , 8X,  ' EXX' ,  8X, ' SYY' ,  8X, 

3'  BYY' , 8X, ' SXY' , 8X, ' EXY' ) 

893  rOMIAT(20X,/, 'STRESS/STRAIN  OUTPUT  IN  GLOBAL  COORDINATES  FOR  LAYER 

1' ,15, //,2X, 'RECOVERY  POINTS' ,24X, ' STKESS/STRAIN 
2COMP<»»NTS',/,3X,'  Cl  CJ' , 9X, ' SXX' , 8X, ' EXX' , 8X, ' SYY' , 8X, 

3' EYY' , 8X, ' SXY' , 8X, ' EXY' ) 

894  rCNWAT(20X,/,' STRESS  OUTPUT  IN  LOCAL  COORDINATES  FOR  LAYER' , 15, //, 
19X, 'RECOVERY  POINTS' , 29X, ' STRESS  COMP(»)ENTS' , /, 

23X,'  Cl  CJ  CK',9X,'SXX',8X,'SYY',8X,'SZZ',8X, 

3' SYZ' , 8X, ' SZX' , 8X, ' SXY' ) 

895  F(»MAT(20X,/,' STRESS  OUTPUT  IN  GLOBAL  COORDINATES  FOR  LAYER', IS,// 
1,9X,' RECOVERY  POINTS' ,29X, ' STRESS  COMPONENTS',/, 

23X,'  Cl  CJ  CK',9X,'SXX',8X,'SYY',8X,'SZZ',8X, 

3' SYZ' , 8X, ' SZX' , 8X, ' SXY' ) 

896  roroiAT (20X, /,' STRAIN  OUTPUT  IN  LOCAL  COORDINATES  FOR  LAYER' , 15, //, 
19X,'REC0V1P1Y  POINTS', 2 9X,' STRAIN  COMPONENTS',/, 

23X,'  Cl  CJ  CK',9X,'EXX',8X,'EYY',8X, 

3' EZZ' , 8X, ' EYZ' , 8X, ' EZX' , 8X, ' EXY' ) 

897  FORHAT(20X,/, 'STRAIN  OUTPUT  IN  GLOBAL  COORDINATES  FOR  LAYER', IS,// 
1,9X,' RECOVERY  POINTS' , 29X, 'STRAIN  COMPONENTS',/, 

23X,'  Cl  CJ  CK',9X,'EXX',8X,'EYY',8X, 

3'EZ2' , 8X, 'EYZ' , 8X, ' EZX' , 8X, 'EXY' ) 

994  PORMAT(2(F7.4,2X),2X,6(B9.3,2X)) 

995  FO»fAT (3 (F7 . 4, 2X) , 2X, 12 (E9 . 3, 2X) ) 

8794  F(NtMAT(/,'  ELEMENT  ID  ',15,/) 

C 

RETURN 

wm 


c 

c 

c 
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SUBROUTINE  VCHECK{  COORDS, MCRD, NNODE, JTYPE, JELEM 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-2) 

DIMENSION  COORDS (MCRD,NNODE) ,X(20> ,y (20) ,  Z (20) 
DATA  NC»1E  /'O  / 

TEST  FOR  IRRECaULAR  ELEMENT  GEOMETRY  BY  CHECKING 
INTERNAL  ANGLES  IN  ELEMENT  LAYERS 

DO  I  -  1,  N1K>DE 

X(I)  -  COORDS (1,1) 

Y(I)  -  COORDS (2, I) 

2(1)  -  COORDS (3, I) 

END  DO 

INITIALIZE  LAYER  ERROR  FLAGS 

NERRLl  «  0 
HERRL2  -  0 
NERRL3  «  0 

IF  (  JTYPE  .BQ.  1  )  THEN 

CALL  ANGLE  (  X, Y, 2, 1,2,3, JELEM, NERRLl  ) 

CALL  ANGLE  (  X,Y, 2, 4, 3,2, JELEM, NERRLl  ) 

CALL  ANGLE  (  X,Y,Z,3,4,S, JELEM,NERRL2  ) 

CALL  ANGLE  (  X,  Y,  2, 6, 5,  4, JELEM, NERRLl  ) 

ELSE  IF  (  JTYPE  .EQ.  2  )  THEM 

CALL  ANGLE  (  X,Y,Z,1,  2,5, JELEM, NERRLl  ) 

CALL  ANGLE  (  X,Y,Z,6,  5,2, JELEM, NERRLl  ) 

CALL  ANGLE  (  X,Y,Z,5,  6, 9, JELEM,NERRL2  ) 

CALL  ANGLE  (  X, Y, 2, 10, 9, 6, JELEM,NERRL2  ) 

ELSE  IF  (  JTYPE  .EQ.  3  )  THEN 

CALL  ANGLE  (  X,Y,2,1,  3,  6, JELEM, NERRLl  ) 
CALL  ANGLE  (  X,Y,Z,8,  6,  3, JELEM, NERRLl  ) 
ChLL  ANGLE  (  X,Y,Z,€,  8, 11, JELEM,NERRL2  ) 
CALL  ANGLE  (  X, Y,Z, 13, 11, 8, JELEN,NERRL2  ) 

ELSE  IF  (  JTYPE  .EQ.  4  )  THEN 

CALL  ANGLE  (  X, Y, 2, 1, 2, 3, JELEM,NERRL1  ) 

CALL  ANGUE  (  X, Y, 2, 3, 4, 5, JELEH,NERRL2  ) 

CALL  ANGLE  (  X,Y,Z,4,3,2, JELEM,NERRL1  ) 

<aa.L  ANGLE  (  X,Y,Z,6,5,4,JELEM,NERRL2  ) 

CALL  ANGLE  (  X,Y,Z,5,  6,7, JBLEM,NERRL3  ) 

CRLL  ANGLE  (  X,Y,2,8,7,6, JELEM,NERRL3  ) 

ELSE  IF  (  JTYPE  .EQ.  5  )  THEN 

CALL  ANGLE  (  X,Y,Z,1,  2,  5, JELEM, NERRLl  ) 

CALL  ANGLE  (  X,Y,2,6,  5,  2, JELEM, NERRLl  ) 

(MLL  ANGLE  (  X,Y,Z,2,  3,  6,  JELEM, NERRLl  ) 

CALL  ANGLE  (  X,Y,Z,7,  6,  3, JELEM, NERRLl  ) 

CALL  ANGLE  (  X,Y,Z,3,  4,  7, JELEM, NERRLl  ) 

CALL  ANGLE  (  X,Y,Z,8,  7,  4, JELEM, NERRLl  ) 

CALL  ANGLE  (  X,Y,Z,4,  1,  8, JELEM, NERRLl  ) 

CALL  ANGLE  (  X,Y,Z,5,  8,  1, JELEM, NERRLl  ) 

CALL  ANGLE  (  X,Y,2,5,  6,  9, JBLEM,NERRL2  ) 

CALL  ANG1£  (  X,Y,Z,10,9,  6, JELEM,NERRL2  ) 

CALL  ANGLE  (  X,Y,Z,6,  7, 10, JBLEM,MERRL2  ) 

CALL  ANGLE  (  X,Y, 2, 11, 10,7, JELEM,NERRL2  ) 

CALL  ANGLE  (  X,Y,Z,7,  8, 11, JELBM,NERRL2  ) 
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CALL  ANGLE  (  X, Y, Z, 12, 11, 8, JELEM,NERRL2  ) 

CALL  ANGLE  (  X,Y,Z,8,  5, 12, JELEM,NERRL2  ) 

CALL  ANGLE  (  X,Y,Z,9,12,  5, JELEH,N£RRL2  ) 

C 

raiD  IF 
C 

IF  '(  NERRLl  .EQ.  1  .OR.  NERRL2  .BQ.  1  .OR.  NERRL3  .EQ.  1)  THEN 
IF  (  )K>NE  .EQ.  0  )  THEN 
NRITE (6,100) 

NC»IB  -  1 
IF 

EIO)  IF 
C 

IF  (  NBRRLl  .NE.  0  )  NRITE (6, 10)  JELEM 
IF  (  NERRL2  .NE.  0  )  NRITE (6, 20)  JELEM 
IF  (  NERRL3  .NE.  0  )  NRITB(6,30)  JELEM 

FORMAT ('  ERROR  -  ELEMENT  #SI10,'  IS  DEFORMED  IN  LAYER  1') 
FORMAT ('  ERROR  >  ELEMENT  *',110,'  IS  DEFORMED  IN  LAYER  2') 
FC»MAT('  ERROR  -  ELEMENT  #',110,'  IS  DEFORMED  IN  LAYER  3') 

0  FORMAT (//,'  ELEMENT  LAYERS  MUST  BE  OF  RECTANGULAR  GEOMETRY',//) 

RETURN 
END 


SUBROUTINE  AtRSLE  (  X,Y,Z,N1,N2,N3, JBLBM,NERR  ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0>Z) 

DHOSNSION  X(20},Y(20),Z(20) 

PI  »  ACOS(>I.0D0) 

VI  -  X(N2>  -  X(N1) 

V2  •  Y(N2)  -  Y(Nl) 

V3  -  Z(K2)  «  Z(M1) 

V4  •  X(N3)  X(N1) 

V5  -  Y(N3)  -  Y(N1) 

V€  «  Z(N3)  >  Z(N1) 

DOT  •  V1*V4  +  V2*VS  ♦  V3*V6 

ADA  -  {V1*V1  +  V2*V2  +  V3*V3)**0.5 
BCHI  -  (V4*V4  +  V5*V5  +  V6*V6)**0.5 
1»ETA  «  ABS (ieO*ACOS (DOT/ (ADA*BDB) } /PI) 

IF  (  THETA  .GE.  95.0  .OR.  THETA  .LE.  85.0  )  NERR  -  1 

RETURN 

END 


8UBR(XJTINB  ELOATA(  PROPS, PTHK,THBTA,B1,E2,B3,V12,V23,V13,G12, 

1  G23,G31,NDT,THK,NORO,IPLANE,IOTYPE,NLAYR, 

2  NELDIM, NDOFN, INTNCX), NODNUM, JTYPE, NS IDE, NDV, 

3  INTDOF,NDOFT,MDOFL,MORO,NLAY,NVER  ) 

IMPLICIT  D<XJBLE  PRECISION  (A-H,0-Z) 

DHOSNSION  B1  (lOO)  ,E2  (100>  ,E3  (lOO)  ,G12  (100)  ,G23  (100)  ,631  (100) , 

1  V12(100),V23(100),V13(100),PTKK(100),THETA(100), 

2  PR0PS(1),NDT(3),NLAY(3),THK(3) 

NOTE:  ALL  PROPERTY  VAXAJES  MUST  BE  INPUTTED  AS  REAL 
NUMiaRS  (»(  THE  UEL  PROPERTY  INPUT  BLOCK 

2C 
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BLEHEtrt  PARAMETERS 


C 

C 


c 

NLAYR 

Wit 

N 

NUMBER  OF  LAYERS  IN  ELEMENT 

c 

NELDIM 

m 

N 

ELEMENT  DIMENSION 

c 

NDOFN 

m 

N 

NUMBER  OF  DEGREES  OF  FREEDOM  PER  NODE 

c 

IMTNOD 

m 

N 

NUMBER  OF  NODES  ALONG  LAYER  INTERFACE 

c 

IKXMIUM 

m 

N 

NUMBER  OF  MODES  PER  LAYER 

c 

INTDOF 

■ 

N 

NUMBER  OF  DOF  ALONG  INTERFACE  (-INTNOD*NDOFN) 

c 

MDOFT 

■i 

N 

TOTAL  NUMBER  OF  DOF  PER  ELEMENT  (-NDOFEL) 

c 

MDOFL 

N 

TOTAL  NUMBER  OF  DOF  PER  LAYER  {-NODNUM*NDOFN) 

c 

NDV 

• 

N 

DIMENSION  OF  ISOPARAMETRIC  TRANSFORMATION 

c 

MATRIX  (-MDOFN*NELDIM) 

c 

NSIDE 

■ 

N 

FOR  ZERO  TRACTION  CONDITION  ON  PRESCRIBED  FACE  N 

V 

CALL  MXIMT(  THK,  3,  1,  O.ODO  ) 

IF  (  JTYPE  .EQ.  1  )  THEN 

********************* 

*  H2L6N  ELEMENT  * 
********************* 


LOCAL  LAYER  COORDINATE  SYSTEM  CONVENTION: 


NLAYR  -  2 
NBLDIM  •  2 
NDOFN  «  2 
IMTIKX)  -  2 
NOniDM  -  4 

NDV  -  NDOFM*NELDIM 

nnDor  -  imtn(e}*ndofn 

lON^  -  12 

lOXM'L  -  IR>DNUM*NDOFN 

MORD  «  3 

ELEMENT  INPUT  PROPERTIES: 

HVBR  ELEMENT  VERSION  DESIGNATION 

IPLANE  •>  0  FOR  PLANE  STRESS 
1  FC«  PLANE  STRAIN 

ZOTYPE  >  0  TO  SUPPRESS  OUTPUT  OF  ELEMENT  DATA 

1  FOR  ELEMENT  OUTPUT  IN  LOCAL  COORDINATES 

2  FOR  ELENrarr  OUTPUT  IN  GLOBAL  COORDINATES 

NSIDE  -  ELEMENT  SIDE  DESIGNATION  FOR  ZEIU3  TRACTIONS 
NLAYl  >  NlBfBER  OF  PLIES  IN  ELEMENT  LAYER  1 

NLAY2  -  mmBER  OF  PLIES  IN  ELEMENT  LAYER  2 

WDTd)  >  DEPTH  DIMENSION  (WIDTH)  OF  LAYER  1 
1IDT(2)  ■>  DEPTH  DIMENSION  (WIDTH)  OP  LAYER  2 

THXd)  -  THICKNESS  OF  LAYER  1  (CALCULATED  FROM  PLY  THICKNESS) 

TRK(2)  -  THICKNESS  OF  LAYER  2  (CALCULATED  FROM  PLY  THICKNESS) 

PTHK  -  PLY  THICKNESS 
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THETA  -  PLY  ORIENTATION 

B1,E2,E3  -  NORMAL  MATERIAL  ^«>DULII 

612,623,631  -  SHEAR  MODULII 
V12,V23,V13  -  POISSON  RATIOS 

PROPERTY  LIST  FORMAT: 

1)  NVER, IPLAME, lOTYPB, NSIDE 

2)  NLAY1,1IDT1, 

3)  PHTK, THETA, El, E2,E3,V12,V23,V13 

4)  612,623,631 

.  REPEAT  FOR  EACH  PLY  IN  LAYER  1 
X)  NLAY2,NDT2 

J)  PHTK,THETA,E1,E2,E3,V12,V23,V13 

K)  612,623,631 

.  REPEAT  FOR  EACH  PLY  IN  LAYER  2 


EXTRACT  ELEMENT  DATA  OFF  PROPS  ARRAY 

NVER  -  INT (PROPS (D) 

IPLAME  -  INT (PROPS (2)) 
lOTYPE  -  INT (PROPS (3)) 

NSIDE  •  INT(PROPS(4)) 

MLAY(l)  -  IMT(PROPS(9) ) 

MDTd)  «  PROPS  (10) 

DO  I  «  1,  NLAY(l) 


N 

-  1*16 

PTKX(I) 

-  PROPS (M+1) 

TRKd) 

-  THKd)  +  PTHK(I) 

THXTA(I) 

-  PROPS (M+2) 

El  (I) 

-  PROPS (N+3) 

B2(I) 

«  PROPS  (N+'4) 

E3(I) 

-  PROPS (N+S) 

V12(I) 

-  PROPS (N+6) 

V23(I) 

•  PROPS (N+7) 

V13(I) 

-  PROPS (M+8) 

612  (1) 

-  PROPS (N+9) 

623(1) 

-  PR<H>S(N+10) 

631(1) 

END  DO 

-  PROPS (N+ll) 

MLAY(2)  -  IMT(PROPS(16*NLAY(l)-l‘17) ) 
NDT(2)  «  PROPS  (1€*NLAY(1)'I-18) 

M  ••  NLAYd) 

DO  I  «  1,  NLAY(2) 

N  -  24+16* (M+I-1) 

PTHK(I+M)  -  PROPS (N+1) 

TRK(2)  -  THK(2)  +  PTHK(I-»M) 

TRETAd+M)  «  PROPS (N+2) 

Bl(l+M)  «  PROPS (H+3) 

B2(I+M)  -  PROPS (N+4) 

E3(I-IM)  -  PROPS  (N+5) 

V12(I+M}  •-  PROPS  (N+6) 

V23(I+M)  -  PROPS (N+7) 

V13(I-Hf)  «  PtU3PS(S+8) 

612(1^)  -  PROPS  (N+9) 

623 (1+M)  -  PROPS (N+10) 

631(I+M)  •  PROPS (N+11) 

m3  DO 

SET  6ADSSIAN  INTEGRATION  ORDER 

IF  (  NVER  .EQ.  11  }  NORD  -  2 

IF  (  NVER  .EQ.  12  )  NORD  -  3 

IF  (  NVER  .EQ.  13  )  NORD  -  3 
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c 

ELSE  IF  {  JTYPB  .EQ.  2  )  THE»< 

*********************** 

*  H2L10M  ELEMENT  * 


LOCAL  LAYER  COORDINATE  SYSTEM  CC»IVENTXON: 


9 - Y - 10 

I  A  I 

I  I  I 

7  I— >  X  8 

I  I 

i  i 

5 - Y - 6 

I  A  1 

I  I  I 

3  t - >  X  4 

I  I 

1 - 2 


NLAYR  «  2 
NELOZM  -  2 
MDOrN  -  2 
INTNOD  -  2 
MODMUM  -  6 

NDV  -  MDOFM*NELDIM 
INTDOF  -  ZNTN<X>*MDOFN 
NDCXrr  *  20 
NDOFL  *  N(X»roM*NDOFN 
MORO  -  3 

ELBffiNT  im^UT  PROPERTIES: 

NVER  -  ELEMENT  VERSION  DESIGNATION 
ZPLAME  >  0  FOR  PLANE  STRESS 
1  FOR  PLANE  STRAIN 

lOTYPB  0  TO  SUPPRESS  OUTPUT  OF  ELEMENT  DATA 

1  FOR  ELEMENT  OUTPUT  IN  LOCAL  COORDINATES 

2  FOR  ELEMENT  OUTPUT  IN  GLOBAL  COORDINATES 

NLAYl  -  NUMBER  OF  PLIES  IN  ELEMENT  LAYER  1 

NLAY2  -  NUMBER  OF  PLIES  IN  ELEMENT  LAYER  2 

NOTd)  >  DEPTH  DIMENSION  (WIDTH)  OF  LAYER  1 
1H}T(2)  -  DEPTH  DIMENSION  (WIDTH)  OF  LAYER  2 

THK(l)  -  THICKNESS  OF  LAYER  1  (CALCULATED  FR<M  PLY  THICKNESS) 

THK(2)  -  THICKNESS  OF  LAYER  2  (CALCULATED  FRC»4  PLY  THICKNESS) 

PTHK  -  PLY  THICKNESS 

THETA  -  PLY  ORIENTATION 

B1,B2,E3  -  1R3RMAL  MATERIAL  MODULII 

012,023,631  -  SHEAR  MODULII 
V12,V23,V13  -  POISSON  RATIOS 

PROPERTY  LIST  FORMAT: 

1 )  NVER, IPLANE, lOTYPE 

2)  NLAYl, 1R>T1, 

3)  PHTK,  THETA,  El,  E2,E3,V12,V23,V13 

4)  012,023,631 

.  REPEAT  FOR  BACH  PLY  IN  LAYER  1 

I)  NLAY2,W}T2 

J)  PHTK,THBTA,E1,E2,E3,V12,V23,V13 
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K)  G12,G23,G31 

!  REPEAT  FOR  EACH  PLY  IN  LAYER  2 


EXTRACT  ELEMENT  DATA  OFF  PROPS  ARRAY 

NVER  -  XNT  (PROPS  (D) 

IPLANE  »  1MT(PR0PS(2) ) 
lOTYPE  -  INT(PROPS<3) ) 

MLAY(l)  -  INT(PR0PS(9) ) 

NDTd)  -  PROPS  (10) 

DO  I  -  1,  NLAY(l) 


N 

1^16 

PTHK(I) 

« 

PROPS (N+1) 

THK(l) 

m 

THK(l)  +  PTHK(I) 

THETA (1) 

m 

PROPS (N+2) 

El  (I) 

m 

PROPS (N+3) 

E2(I) 

m 

PROPS (N+4) 

E3(X) 

m 

PROPS (N+5) 

V12(I) 

m 

PROPS (M+6) 

V23(I) 

m 

PROPS (N+7) 

V13(I) 

m 

PROPS (N+8) 

G12(X) 

m 

PROPS (N+9) 

G23(I) 

m 

PROPS (N+10) 

G31(l) 

m 

PROPS (N+11) 

SND  DO 

NLAY(2)  -  INT (PROPS (16*NLAY(1) +17) ) 
1IDT(2)  -  PROPS  (16*NLAY(1} +18) 

M  -  NLAY(l) 

DO  I  -  1,  NLAy(2) 


N 

-  24+16* (M+I-1) 

PTHK(I+M) 

-  PROPS (N+1) 

THK(2) 

-  THK(2)  +  PTHK(I+M) 

THETA (X+M) 

-  PROPS (N+2) 

B1(I+M) 

-  PROPS (N+3) 

E2(I+M) 

-  PROPS (N+4) 

X3(X+M) 

•  PROPS (N+5) 

V12(I+M) 

-  PROPS (N+€) 

V23(X+M) 

-  PROPS (N+7) 

V13(I+M) 

-  PROPS (N+8) 

G12(l+M) 

-  PROPS (N+9) 

623  (I-W) 

-  PROPS (N+10) 

G31(I+M) 

-  PROPS (N+11) 

END  DO 

SET  GAUSSIAN  INTEGRATION  ORDER 

IF  (  NVER  .BQ.  11  )  NORD  -  4 
IF  (  NVER  .EQ.  12  )  NORD  >  5 

ELSE  IF  (  JTYPE  .EQ.  3  )  THEN 

********************** 

*  H2L13M  ELEMENT  * 
********************** 


LOCAL  LAYER  COORDINATE  SYSTEM  CONVENTION 


11 - 12 - 13 

I  T  I 

I  *  I 

I  I  I 

9  I - >  X  10 

\  t 


UUUPUUUUOUU  ouuuuuuuuuuouuouuouuuuuuuuuuouuuuuouuooo 


6 - 7 - 8 

I  Y  I 

I  ''  I 

I  I  I 

4  I - >  X  5 

I  I 

\  I 

I  I 

1 - 2 - 3 


NIAYR  *■  2 
NBLDXM  -  2 
NDOFN  -  2 
INTNOD  «  3 
NODtnm  -  8 

NDV  -  NDOFN*NELDIM 
INTDOF  -  HrrNOD*NDOFN 
NDOFT  -  2€ 

NDOFL  -  NODNUM*NDOFN 
MORD  -  3 

ELEM^IT  INPUT  PROPERTIES: 


NVER 

IPLANE 

lOTYPE 


NIAYl 

NLAY2 

NDTd) 

NOT (2) 

THR(l) 

THK(2) 


ELEMENT  VERSION  DESIGNATION 
0  FOR  PLANE  STRESS 
1  FOR  PLANE  STRAIN 

0  TO  SUPPRESS  OUTPUT  OF  ELEMENT  DATA 

1  FOR  ELEMENT  OUTPUT  IN  LOCAL  COORDINATES 

2  FO»  FLEMENT  OUTPUT  IN  GLOBAL  COORDINATES 
NUMBER  OF  PLIES  IN  ELEMENT  LAYER  1 
NUMBER  OF  PLIES  IN  ELEMENT  LAYER  2 

DEPTH  DIMENSION  (WIDTH)  OF  LAYER  1 
DEPTH  DIMENSION  (WIDTH)  OF  LAYER  2 

THICKNESS  OF  LAYER  1  (CALCULATED  FRCM  PLY  THICKNESS) 
THICKNESS  OF  LAYER  2  (CALCULATED  FROM  PLY  THICKNESS) 


PTHK 

THETA 

B1,E2,E3 

G12,G23,G31 

V12,V23,V13 


PLY  THICKNESS 
PLY  ORIENTATION 
NORMAL  MATERIAL  MODULI I 
SHEAR  MODULII 
POISSON  RATIOS 


PROPERTY  LIST  FORMAT: 

1 )  NVER, IPLANE, lOTYPB 

2)  NLAYlfWDTl, 

3)  PHTK, THETA, El, B2, E3, V12, V23, V13 

4)  G12,G23,G31 

!  REPEAT  FOR  EACH  PLY  IN  LAYER  1 

I)  NLAY2,NDT2 

J)  PHTK, THETA, El, E2,E3,V12,V23,V13 

K)  612,G23,G31 

!  REPEAT  FOR  BACH  PLY  IN  LAYER  2 


EXTRACT  ELEMENT  DATA  OFF  PROPS  ARRAY 


NVER  -  INT (PROPS (1)} 
IPLANE  -  INT (PROPS (2)) 
lOTYPE  •  INT (PROPS (3)) 
N8IDS  -  INT (PROPS (4) ) 
NLAY(l)  -  INT (PROPS (9) ) 
NDTd)  «  PROPS (10) 

DO  1  -  1,  NLAYd) 
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N  -  1*16 

PTHK(I)  -  PROPS (N+1) 

THK(X)  -  THK(l)  +  PTHK(I) 

THETA (I>  -  PROPS {N+2) 

El (I)  -  PROPS (N+3) 

B2{1)  -  PROPS (N+4) 

B3(I)  -  Pi«)PS(N+5) 

V12<Z)  -  PROPS  (N4-6) 

V23(I)  -  PROPS (N+7) 

V13(I)  -  PROPS (N+8) 

G12(I)  -  PROPS (N+9) 

G23(I)  -  PROPS (N+10) 

G31(I)  -  PROPS (N+ll) 

END  DO 

NIAy(2)  -  INT(PR0PS(16*NIAY(1)+17) ) 
WDT(2)  -  PROPS (16*NLAy(l) +18) 

M  -  NLAY(l) 

DO  I  -  1,  NjCAY(2) 

N  -  24+16* (M+1-1) 

PTHK(1+M)  -  PROPS (N+l) 

THK(2)  -  THK(2)  +  PTHK(I+M) 

THETA <I+M)  -  PROPS <N+2) 

B1(I+M)  -  PROPS <N+3) 

B2(I+M)  -  PROPS (N+4) 

E3(Z+M)  «  PROPS (N+5) 

V12(Z+M)  -  PROPS (N+6) 

V23(Z+M)  -  PROPS (N+7) 

V13(Z+M)  -  PROPS (N+8) 

G12(Z+M)  -  PROPS (N+9) 

G23(Z+M)  .  «  PROPS (N+10) 

G31(Z+M)  -  PROPS (M+11) 

END  DO 

SET  GMJSSZAN  ZNTEGRATKW  ORDER 

ZF  (  NVER  .EQ.  11  )  NORD  •  4 

Zr  (  NVER  .EQ.  12  )  NORD  «  5 

ELSE  ZF  (  JTYPE  .EQ.  4  )  THEN 

********************* 

*  H3L8N  ELEMENT  * 


LOCAL  LAYER  COORDZNATE  SYSTEM  CONVENTZON 


I  ^  I 

i  I  t 

I  I - >  X  I 

I  i 

I  I 

5 - y - f 

I  A  I 

i  I  I 

FI  I  I - >  X  I  F2 

I  I 

I  I 

3 - y - 4 

1  A  I 

t  I  I 

I  I - >  X  I 

I  I 

I  I 

1 - - 2 
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NIAYR  -  3 
NELDIM  -  2 
NSOFN  -  2 
iwmoD  -  2 
NOONUM  -  4 

)rov  »  NDOFN*NELDIM 
INTDOF  -  INTNOD*NDOFN 
NDOFT  «  16 
NDOFL  -  NODNUM*NDOFN 
MORD  -  3 

ELEMENT  INPUT  PROPERTIES: 

NVER  -  ELEMENT  VERSION  DESIGNATION 
IPLANE  -  0  FOR  PLANE  STRESS 
1  FOR  PLANE  STRAIN 

lOTYPE  -  0  TO  SUPPRESS  OUTPUT  OF  ELEMENT  DATA 

1  FOR  ELEMENT  OUTPUT  IN  LOCAL  COORDINATES 

2  FOR  ELEMENT  OUTPUT  IN  GLOBAL  COORDINATES 

NSIDE  -  ELEMENT  SIDE  DESIGNATION  FOR  ZERO  TRACTIONS 
NLAYl  -  NUMBER  OF  PLIES  IN  ELEMENT  LAYER  1 

MLAY2  -  NUMBER  OF  PLIES  IN  ELEMENT  LAYER  2 

NLAY3  NUMBER  OF  PLIES  IN  ELEMENT  LAYER  3 

«DT(1)  -  DEPTH  DIMENSION  (WIDTH)  OF  LAYER  1 

NDT(2)  •  DEPTH  DIMENSION  (WIDTH)  OF  LAYER  2 

MDT(3)  -  DEPTH  DIMENSION  (WIDTH)  OF  LAYER  3 

THK(l)  ->  THICKNESS  OF  LAYER  1  (CALCULATED  FROM  PLY  THICKNESS) 

THR(2)  -  THICKNESS  OF  LAYER  2  (CALCULATED  FROM  PLY  THICKNESS) 

THK(3)  -  THICKNESS  OF  LAYER  3  (CALCULATED  FROM  PLY  THICKNESS) 

PTHK  -  PLY  THICKNESS 

THETA  -  PLY  ORIENTATION 

B1,E2,E3  -  NORMAL  MATERIAL  MODULI I 

G12,623,G31  -  SHEAR  MODULII 
V12,V23,V13  -  POISSON  RATIOS 

PROPERTY  LIST  FORMAT: 

1)  NTYPE, IPLANE, lOTYPE 

2)  NLAYl, WDTl, 

3)  ■  PHTK, THETA, El, E2,E3,V12,V23,V13 

4)  612,623,631 

.  REPEAT  FOR  EACH  PLY  IN  LAYER  1 

I)  HLAY2,1IDT2 

J)  PHTK,THETA,E1,B2,E3,V12,V23,V13 

K)  612,623,631 

!  REPEAT  FOR  EACH  PLY  IN  LAYER  2 

L)  NLAY3,WDT3 

M)  PHTK, THETA, El, B2 , E3, V12, V23, V13 

N)  612,623,631 

!  REPEAT  FOR  EACH  PLY  IN  LAYER  3 


EXTRACT  ELEMENT  DATA  OFF  PROPS  ARRAY 

NVER  -  INT (PROPS (1) ) 

IPLANE  -  XNT(PROPS(2) ) 
lOTYPB  -  INT (PROPS (3)) 

NSIDE  -  IMT(PROPS(4) ) 

NLAY(l)  -  INT (PROPS (9)) 

W>T(1)  -  PROPS (10) 

DO  I  -  1,  NLAY(l) 

N  -  1*16 
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PTHK(I)  -  PROPS (N+1) 

THK{1)  -  THK{1)’  +  PTHKd) 

THETA (I)  -  PROPS (N+2) 

Bid)  -  PROPS  {N+3) 

B2(I>  -  PROPS (N+4) 

B3(I)  -  PROPS (N+5) 

V12(I)  -  PROPS (N+6) 

V23d)  •  PROPS  (N+7) 

V13{I)  -  PROPS (N+8) 

G12{I)  «  PROPS (N+9) 

G23<I)  -  PROPS (N+10) 

G31d)  »  PROPS  (N+ll) 

END  DO 

NIAY(2)  -  INT(PR0PS(16*NLAY{1)+17)> 

NDT(2)  -  PROPS (16*NLAY(1) +18) 

M  «  NLAY(l) 

DO  I  -  1,  NLAY{2) 

N  -  24+16* (M+I-1) 

PTHK(I+M)  -  PROPS (N+1) 

THE (2)  -  THK<2)  +  PTHK(I+M) 

THETA (I+M)  «  PROPS (N+2) 

E1(I+M)  «  PROPS <N+3) 

E2(I+M)  -  PROPS <N+4) 

E3(I+M)  »  PROPS (N+5) 

V12(I+M)  -  PROPS (N+6) 

V23(I+M)  -  PROPS (N+7) 

V13(I+M)  -  PROPS (N+8) 

G12(I+M)  -  PROPS (N+9) 

G23(l+M)  -  PROPS (N+10) 

G31(1+M)  -  PROPS (N+ll) 

END  DO 

NLAY(3)  -  INT(PROPS(16*{NLAY(l)+NIAY(2))+25)) 
NDT(3)  -  PROPS(16*(NLAY(l)+NLAY(2) )+26) 

M  -  N1AY(1)+NLAY(2) 

DO  I  -  1,  NLAY(3) 

N  -  32+16* (M+I-1) 

PTHK(Z+M)  «  PROPS (N+1) 

THK(3)  •  THK(3)  +  PTHK(I+M) 

THETA (X+H)  «  PROPS (N+2) 

El (I+M)  «  PROPS (N+3) 

E2(I+M)  »  PROPS (N+4) 

E3(I+M)  -  PROPS (N+5) 

V12(Z4M)  -  PROPS (N+6) 

V23d+M)  -  PROPS  (N+7) 

V13(I+M)  -  PROPS (N+8) 

G12(I+M)  -  PROPS (N+9) 

G23(I+K)  «  PROPS (N+IO) 

G31(I+M)  -  PROPS (N+ll) 

END  DO 

SET  GAUSSIAN  INTEGRATION  ORDER 

IF  (  NVER  ,EQ.  11  )  NORD  -  3 
IF  (  NVER  .EQ.  12  )  NORD  -  4 

ELSE  IF  (  JTYPB  .EQ.  5  )  THEN 

******************** 

*  H2L12N  ELEMENT  * 

******************** 


N<H}E  NUMBERING  CONVENTION: 

12 - 11 

/I  /I 

/I  /I 

9 - 10  1 

(I  11 
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LOCAL  LAYER  COORDINATE  SYSTEM  CONVENTION: 

2,W  Y,V 

"  / 

I  / 

I  / 

1+7-1 - 1+6 

/I  I  /I 

/I  /I 

1+4 - 1+5  I 

I  I  I  - >  x,U 

I  1+3 - 1— 1+2 

I  /  1  / 

1/  1/ 

I - I+l 


NLAYR  -  2 
NBLOZK  -  3 
MDC»*M  -  3 
XMTKOD  «  4 
tKANOM  «*  8 

MDV  -  MDOFN*NBLDIM 
INTDOF  -  INTNOD*NDOFN 
NDOFL  -  NQDNUM*NDOFN 
MDOFT  «  36 
MORD  -  6 

ELEMENT  INPUT  PROPERTIES: 

NVER  -  ELEMENT  VERSION  DESICSIATION 
lOTYPE  o  0  TO  SUPPRESS  OUTPUT  OF  ELEMENT  DATA 

1  FOR  ELEMENT  OUTPUT  IN  LOCAL  COORDINATES 

2  FOR  ELEMENT  OUTPUT  IN  GLOBAL  COORDINATES 

NLAYl  >  NUMBER  OF  PLIES  IN  ELEMENT  LAYER  1 

NIAY2  -  NUMKR  OF  PLIES  IN  ELEMENT  LAYER  2 

THK(l)  -  THICKNESS  OF  LAYER  1  (CALCULATED  FROM  PLY  THICKNESS) 

TfiK(2)  -  THICKNESS  OF  LAYER  2  (CALCULATED  FROM  PLY  THICKNESS) 

PTHK  -  PLY  THICKNESS 

THETA  -  PLY  ORIENTATION 

E1,E2,E3  -  NORMAL  MATERIAL  MODULI I 

612,623,631  -  SHEAR  MODULII 
V12,V23,V13  -  POISSON  RATIOS 

PRCH^ERTY  LIST  FORMAT: 

1)  NWER,IOTyPE 

2)  NLAYl 

3 )  PHTK, THETA, E1,E2,E3,V12,V23,V13 

4)  612,623,631 

.  REPEAT  FOR  EACH  PLY  IN  LAYER  1 

I)  NLAY2 

J)  PHTK, THETA, El , E2 , E3, V12, V23, V13 

K)  612,623,631 


ooo  o  o  ooo  ooooo 


.  REPEAT  FOR  EACH  PLY  IN  LAYER  2 


EXTRACT  ELEMENT  DATA  OFF  PROPS  ARRAY 

HVER  -  INT  (PROPS  (D) 
lOTYPB  -  INT (PROPS (2) ) 

NLAY(l)  -  INT (PROPS ( 9) ) 

DO  I  -  1,  MLAY(l) 


N 

-  1*16 

PTHK(I) 

-  PROPS (N+1) 

THK(l) 

-  THK(l)  +  PTHK(I) 

THETA (I) 

-  PROPS (N+2) 

El  (I) 

-  PROPS (N+3) 

E2(I) 

-  PROPS (N+4) 

E3(I) 

-  PROPS (M+5) 

V12(I) 

-  PROPS (N+6) 

V23(l) 

-  PROPS (N+7) 

V13(I) 

-  PROPS (N+8) 

G12(I) 

-  PROPS (N+9) 

623(1) 

-  PROPS (N+10) 

631(1) 

-  PROPS (N+1 1) 

END  DO 

MLAY(2)  -  INT(PROPS(16*MLAY(l)+17) 

M  -  NLAY(l) 

DO  I  -  1,  NLAY(2) 

N 

-  24+16* (M+I-1) 

PTHK(I+M) 

-  PROPS (N+1) 

TKK(2) 

-  THK(2)  +  PTHK(I+M) 

THETA (I+M)  -  PROPS (N+2) 

El (I+M) 

-  PROPS {N+3) 

B2(I+M) 

-  PROPS (N+4) 

E3(I+M) 

-  PROPS (N+5) 

V12(I+M) 

-  PROPS (M+6) 

V23  (I+M) 

-  PROPS (N+7) 

V13  (I+M) 

-  PROPS (N+8) 

612 (I+M) 

-  PROPS (N+9)  * 

623 (I+M) 

-  PROPS (N+10) 

631 (I+M) 

-  PROPS (N+1 1) 

END  PO 

SET  GAUSSIAN 

INTEGRATION  ORDER 

IF  (  NVBR  .EQ.  11  )  NORD  -  2 

IF  (  NVER  .EQ.  12  )  NORD  -  3 

END  IF 

RETURN 

END 


C 

C 

c 


c 

c 


SUBROUTINE  mwt  (ND,  MORD,  NODNUM,  NDOFL,  AJINV,  DXS I ,  DETA, 
1  DCEE,BHATS) 


IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 


DHOSNSION  AJINV (3f  3)  ,DXSI  (20)  rDETA(20)  ,DCEE(20}  ,BMATS  (6,  60) 
DIMENSION  TOPI (36, 36) , HMATS (6, 9), THAT (9, 9) ,UMAT{9, 60) 


CALL  MXINT(  HMATS,  6,  9,  O.ODO  ) 

CALL  MXINT(  TOAT,  9,  9,  O.ODO  ) 

CALL  MXINT(  UMAT,  6,  60,  O.ODO  ) 

IF  (  ND  .EQ.  2  )  THEN 

HMATS (1,1)  -  1.0 
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HMATS<2,4)  »  1.0 
HMATS{3,2)  -  1.0 
IMATS(3,3)  -  1.0 

ELSE  IF  (  ND  .EQ.  3  )  THEN 

I0«TS{1,1)  -  1.0 
l«ATS(2,5)  -  1.0 
HMJITS(3,9)  -  1.0 
i«4ATS(4,6)  -  1.0 
HM&TS(4,8)  -  1.0 
HMATS(5,3)  -  1.0 
HMATS<5,7)  -  1.0 
»IATS<6,2)  -  1.0 
HMATS<6,4)  -  1.0 

END  XF 

DO  I  -  1,  NO 
DO  J  -  1,  ND 

IF  (  ND  .EQ.  2  )  THEN 
THAT (I, J) 
TMAT(I+ND, J+ND) 


ELSE  IP  (  ND  .EQ,  3  )  THEN 


-  AJINV<I,J) 

-  AJINVd.J) 


TMAT(I,J)  -  AJINV{I,J) 

TMAT(I+ND, J+ND)  -  AJINV(I,J) 

TMAT(I+2*ND, J+2*ND)  -  AJINV(I,J) 
END  IF 
END  DO 
END  DO 

COMPUTE  THE  TRANSFORMATION  MATRIX  UMAT 


IF  (  ND  .EQ. 
DO  J  •  1, 
WAT(1, 
UMAT (2, 
UMAT (3, 
UMAT (4, 
WD  DO 
ELSE  IF  (  NO 
DO  J  -  1, 
tmATd, 
UMAT <2, 
IE4AT(3, 
UMAT <4, 
UMAT (5, 
UMAT <6, 
UMAT (7, 
UMAT (6, 
UMAT (9, 
END  DO 
END  IF 


2  )  THEN 

N(X>NUM 

2*(J-1)+1) 

2*<J-1)+1) 

2*(J-l)+2) 

2*(J-l)+2) 


DXSI < J) 
DETA(J} 
DXSI ( J) 
DETA(J) 


.EQ.  3  )  I 

NODNUM 

3*(J>1>+1) 

3*(J-1)+1) 

3*<J-1)+1) 

3*(J-l)+2) 

3*(J-l)+2) 

3*(J-l)+2) 

3*(J-l)+3) 

3*{J-l)+3) 

3*(J-l)+3) 


)  THEN 


DXSI ( J) 
DETA(J) 
DCBE ( J) 
OXSI<J) 
DETA(J) 
DCEE ( J) 
DXSI ( J) 
DETA(J) 
DCEE { J) 


NDV  -  ND**2 

CALL  MXMUL(TMAT,imAT,TMPl,9, 9,36,NDV,NDV,NDOFL) 
CALL  MXMUL(HMATS,TMP1,BMATS,6,36, 6,MORD,NDV,NDOFL> 

RETURN 

END 


SUBROUTINE  TRANS {  COORDS, CTRN,STRN,ETRN,TRI,JTYPE,MCRD,NNODE  ) 
IMPLICIT  REAL* 8  (A-H,0-Z) 

CALCULATE  TRANSFORMATION  MATRICES  FOR  CONVERTING  QUANTITIES 


BB7NEBN  ELEMENT  AND  GLOBAL  COORDINATE  SYSTEMS 

DIMENSION  X(20),  Y(20),  Z(20),  £0(3,3), 

1  EP(3,3),  TRIO, 3),  STRN(6,6), 

2  BTRN(6,6),  CTRN(36,36),  COORDS (MCRD, NNODE) 

CALL  NXINT  (  CTRN,  36,  36,  O.ODO  ) 

CALL  MXINT  (  STRN,  6,  6,  O.ODO  ) 

CALL  MXINT  (  ETRN,  6,  6,  O.ODO  ) 

DO  I  -  1,  NNODE 

X(I)  -  COORDS (1,1) 

Y(I)  -  COORDS (2,1) 

Z(I)  «  i:00RDS(3,I) 

END  DO 

UNIT  VECTORS  IN  GLOBAL  SYSTEM 

E0{1,1)  -  1.0 
EO(l,2)  -  0.0 
EO{l,3)  -  0.0 
EO(2,l)  -  0.0 
EO<2,2)  -  1.0 
BO(2,3)  *  0.0 
EO(3,l)  -  0.0 
EO(3,2)  -  0.0 
EO(3,3)  -  1.0 

DETERMINE  ELEMENT  COORDINATE  VECTORS 

IF  (  JTYPE  .BQ.  1  .OR.  JTYPE  .EQ.  2  .OR. 

1  JTYPE  ,.EQ.  4  )  THEM 

AL  -  SQRT<  (X(2)-X{1))**2+(Y<2)-Y(1))**2  ) 

EP(1,1)  -  (X(2)-X{1))/AL 
EP(1,2)  -  (Y(2)-Y(1)>/AL 
AL  •  SQRT(  (X(3)-X(1))**2+(Y<3)-Y(1))**2  ) 

EP(2,1>  -  (X<3)-X(1))/AL 
EP(2,2)  -  (Y{3)-Y(1))/AL 


NDIM 


ELSE  IF  (  JTYPE 


THEN 


AL  »  SQRT( 
BP(1,1)  - 
tP(l,2)  - 
AL  «  8<mT( 
BP (2,1)  - 
EP(2,2)  - 

NDIM  -  2 


(X(3)-X(1))**2+{Y(3)-Y(1))**2  ) 
(X{3)-X(1)>/AL 
(Y(3)-Y(1))/AL 

(X{6)-X<l))**2+(y(6)-y(l))**2  ) 
(X{6)-X(1))/AL 
(Y(6)-Y(1))/AL 


ELSE  IF  (  JTYPE  .EQ.  5  )  THEN 

AL  -  SQRT(  <X{2)-X(l)>**2+(Y(2)-Y(l))**2+(2(2)-Z(l))**2 
EP(1,1)  -  (X(2)-X(1))/AL 
SP(1,2)  -  (y(2)-Y(l))/AL 
BP(1,3)  -  (Z(2)-Z(1>)/AL 

AL  -  S<»IT(  (X(4)-X(l))**2+(y(4)-Y(l))**2+(2(4)-Z(l))**2 
EP{2,1)  -  (X(4)-X(1))/AL 
EP(2,2)  -  (Y(4)-Y(1))/AL 
BP (2, 3)  «  (Z(4)-Z(1))/AL 

AL  -  SQRT(  (X(5)-X(1))**2+(Y{5)-Y(1))**2+(Z(5)-Z(1))**2 
BP(3,1)  -  (X{5)-X(1))/AL 
EP(3,2)  -  (Y(5)-Y(1))/AL 
BP  (3, 3)  -  {Z(S)-Z(1))/AL 
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c 


HDIM  «  3 


END  IF 


C<»tSTODCT  COORDINATE  TRANSFORMATION  MATRIX 

T 

{XM  -  CTRIHX);  (XI  -  [TRIHXM 


DO  I  -  1,  NDIM 
DO  J  -  1,  NDIM 
TRI{I,J)  «  0.0 
DO  K  ->  1,  NDIM 

TR1(I,J)  -  TRI(I,J)  +  EP(I,K) ’»EO(J,K) 

END  DO 
END  DO 
DO 

DO  I  -  1,  NNODE 
NF  -  NDIM* (1-1) 

DO  J  -  1,  NDIM 
DO  K  -  1,  NDIM 

CTRN(NF+J,NF+K)  -  TRI(J,K) 

END  DO 
END  DO 
QiD  DO 

CCXfSTRUCT  STRESS  AMD  STRAIN  TRANSFORMATION  MATRICES 
TO  CON^T  BETWEEN  ELEMENT  COORDINATE  SYSTEM  AND 
6LC»AL  SYSTEM 

(8TRNI  •  STRESS  TRANSFORMATION 
tETRN]  -  STRAIN  TRANSFORMATION 

(EM  «  (ETRNKE);  (SM  •*  (STRM](S) 

T  T 

(B)  -  (STRNKBM;  (S)  -  (ETRMKSM 

IF  (  MOIM  .EQ.  2  )  THEM 

tSX,SYrTXY] 

STRESS  TRANSFORMATICm  MATRIX,  [STRN] : 

STRN(1,1)  -  TRI<1,1)**2 
STRN(1,2)  «  TRI(2,1)**2 
8TRN(1,3)  -  2*TRI(1,1)*TRI(2,1) 

STRN (2,1)  -  TRI(1,2)**2 
STilN(2,2)  -  TRI<2,2)**2 
STRN(2,3}  -  2*TRI<1,2)*TRI<2,2) 

STRM(3,1)  -  TRI<1,1)*TRI(1,2) 

8TRN(3,2)  -  TR1(2,1)*TRI(2,2) 

8TRM(3,3)  -  TRI(1,1)*TRI(2,2)+TRI(2,1)*TRI(1,2) 

ELSE  IF  (  NDIM  .EQ.  3  )  THEN 

(SX, SY, SZ, TYZ, TXZ, TXY] 

STRESS  TRANSFORMATION  MATRIX,  (STRN) : 

STIBI(1,1)  -  TRI(1,1)**2 

8TRN{1,2)  -  TR1{1,2)**2 
STRN (1,3)  -  TR1{1,3)**2 

STI»r(l,4)  -  2*TRI(1,2)*TRI(1,3) 

STRN(1,S)  -  2*TRI(1,3)*TRI(1,1) 
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W  N  H* 


C 

C 

c 

c 


c 


c 

c 

c 


c 

c 

c 

c 


c 


c 


STRN(1,6) 

STRM(2,1) 

STi01(2,2) 

STRN(2,3) 

STRM(2,4) 

STRN(2,5) 

STRN(2,6> 

STRN(3,1) 

STRN(3,2) 

STBli(3,3) 

STIU((3,4) 

STRN(3,5) 

STRN(3,6) 

STIW(4,1) 

STRN(4,2) 

STRN(4,3) 

$7101(4,4) 

STRll(4,5) 

STRM(4,6) 

STRN(5,1) 

STRK(5,2) 

ST10((5,3) 

STRM(S,4) 

STBN(S,S) 

STSN(5,6) 

STBN($,1) 

STRM(fi,2) 

8TBH(6,3) 

$7101(6,4) 

snai(6,s) 

$7101(6,6) 


2*7RI(1,1)*TRI(1,2) 

7RI(2,1)**2 

7RI(2,2)**2 

7R1(2,3)**2 

2*7RI(2,2)*7RI(2,3) 

2*7RI (2,3)*7RI(2,1) 
2*7RI(2,1)*7RI(2,2) 

7RI(3,1)**2 

TRI(3,2)**2 

7R1(3,3)**2 

2*7RI(3,2)*7RI(3,3) 

2*7RI(3,3)*7RI(3,1) 

2*7RI(3,1)*7RI(3,2) 

7RI(2,1)*7RI(3,1) 

7RI(2,2)*TRI(3,2) 

7RI(2,3)*TRI(3,3) 

7RI(2,2)*TR1(3,3)  +  7RI (3, 2) *7RI (2, 3) 
7Rl(2,3)*TRI(3,l)  +  TRI (3, 3) *TRI (2, 1) 
7RI(2,1)*7RI(3,2)  +  TRl (3, 1) *7RI (2,2) 
7RI(3,1)*7RI(1,1) 

7RI(3,2)*TRI(1,2) 

7RI(3,3)*7RI(1,3) 

7RI(3,2)*7RI(1,3)  +  7RI (1, 2) *7RI (3, 3) 
7RI(3,3)*7RI(1,1)  +  7RI(1,3)*TRI(3,1) 
7RI(3,1)*7RI(1,2)  +  7RI(1,1)*7RI(3,2) 
7RI(1,1)*7RI(2,1) 

7R1(1,2)*7RI(2,2) 

7RI(1,3)*7RI(2,3) 

7RI(1,2)*7RI(2,3)  +  7RI (2,2) *7RI (1, 3) 
7RI(1,3)*TRI(2,1)  +  7RI(2,3)*7RI{1,1) 
7R1(1,1)*TRI(2,2)  +  7RI(2,1)*7R1(1,2) 


END  IF 

STRAIN  TRANSFORMATION  MATRIX,  [ETRN] : 

DO  I  «  1,  NDIM 
DO  J,-  1,  NDIM 

B<nO((I,J)  -  STRN(I,J) 

mOI(I,J-l'NDIM)  »  $TRN(I,J-»-NDIM)/2.0 

ETRNd-l-MDIM,  J)  *  $TRM(I4-NDIM,  J) /O  .5 

BTRN(I4-NDIM,  J-HNDIM)  »  $TRN(I+NDIH,  J-»^NDIM) 

END  DO 
END  DO 


RBTORN 

END 


SDBROUTINE  MATPROP (PTHK, THETA, El, B2, B3, 612 , 623 , 631 , V12 , V23 , V13 , 
1  $HAT,NELDIM,IPLANB,MORO,K,NLAY  ) 

CXMPUTATION  OF  BUMEN7  MATERIAL  PROPERTY  MATRICES 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DlMSNSICXi  B1(100),E2(100),E3(100),V12(100),V23(100),V13(100), 

612(100) ,623 (100)  ,631 (100) , V21 (100) , V32 (100) , V31 (100) 
THETA(IOO) ,PTHK(100) ,tH4AT(6, 6) ,SMAT(6,  6) ,QBAR(€, 6) , 
CL (6,6), INDEX ( 6) , NLAY (3) 

PI  -  ACOS(-l.ODO) 

TLK  -  0.0 

CALL  MXINT(  DMAT,  6,  6,  O.ODO  ) 

CALL  MXINT(  QBAR,  6,  6,  O.ODO  ) 


NOFF  *  1 
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DO  I  -  1,  K-1 

KOIT  -  NOFF  +  NLAY(I> 
laiD  DO 

HL  -  MLAY{K)  +  NOFF  -  1 
IF  (  NELDZM  .BQ.  2  )  THEN 
{EX,EY,GXy] 

IF  <  IPIANE  .EQ.  0  )  THEN 

PLANE  STRESS 

DO  I  -  NOFF,  NL 

PHI  -  THETAII)  *  PI  /  180.0 
C  -  COS (PHI) 

S  -  SIN (PHI) 

C2'  -  C*C 

52  -  S*S 

C3  -  C2*C 

53  -  S2*S 

C4  -  C2*C2 

54  -  S2*S2 

TIM  -  TLM  +  PTRK(I) 

V21(I)  -  V12(I)*E2(I)/E1(I) 

Oil  -  B1(I)/(1.0-V12(1)*V21(I)) 
Q12  -  V21(I)*Q11 
Q22  -  |!2<I)/(1.0-V12(1)*V21(1)) 
Q€6  «  612(1) 


QBAR(1,1) 

QBAR(1,2) 

QBAR(1,3) 

Q»AR(2,1) 

(»MR(2,2) 

QBAR(2,3) 

QBAR(3,1) 

tfkAR(3,2) 

QBAR(3,3) 


Qll*C4+2 . * (Q12+2 . *Q66) *C2*S2+Q22*S4 
(Qll<f<222>4 .  *Q66)  *82*02+012*  (C4+S4 ) 
(Q11-Q12-2 . *Q66) *S*C3+ (012-Q22+2 . *Q66) *S3*C 
QBAR(1,2) 

Qll*S4+2 .  *  ((312+2 .  *Q€6)  *S2*C2+022 *C4 
<Qll-Q12-2 . *Q66) *S3*C+ (Q12-022+2 . *Q66) *S*C3 
QSAR(1,3) 

QBAR(2,3) 

(Qll+Q22>2 . *Q12-2 . *Q66) *S2*C2+Q66* (S4+C4) 


DO  L  -  1,  3 
DO  J  -  1,  3 
DHAT(L,J) 
END  DO 
END  DO 

END  DO 


-  DMAT(L,J)  +  QBAR(L,J)  *  PTHK(I) 


DO  L  -  1,  3 
DO  J  -  1,  3 

M1AT(L,J)  -  DMAT(L,J)/TLM 
HMD  DO 
END  DO 


ELSE 


PLANE  STRAIN 

DO  I  -  HOfF,  NL 

PHI  -  THBTA(I)  •  PI  /  180.0 
C  -  OQS (PHI) 

S  -  SIN (PHI) 

C2  -  C*C 
82  -  8*S 

C3  «  C2*C 
S3  «  S2*S 
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C4  -  C2*C2 
S4  -  S2*S2 

TLM  -  TLM  +  PTHK<I) 

511  - 

512  -  “712  (I) /El  (I) 

513  -  -V13<I)/EI{I) 

522  «  l./E2(I) 

523  -  -V23(1)/E2(I) 

S33  -  l./E3<I) 

S66  -  l./612(X) 

Rll  -  Sll  -  S13**2/S33 
R12  -  S12  >  S13*S23/S33 
R22  -  S22  -  S23**2/S33 
R33  -  S66 

Qll  -  R22/(R11*R22-R12**2) 

Q12  -  -R12/ (R11*R22-R12**2) 

Q22  -  Rll/ (R11*R22-R12**2) 

Q6€  -  1./R33 

QBAR(l,l)  -  Q11*C4+2.*(Q12+2.*Q66)*C2'»S2+Q22*S4 
<IB*R<1,2)  -  (Q11+Q22-4. *066)  *82*02+012*  {C4+S4) 

(ffRR(l,3)  -  tQll-Q12-2.*Q66>*S*C3+(Q12-Q22+2.*Q66)*S3*C 
QBRR(2,l)  -  QBAR(l,2) 

(»AR<2/2>  -  Q11*S4+2.*(Q12+2.*Q66)*S2*C2+022*C4 
QUiR(2,3)  -  (Q11-Q12-2.*Q66) *S3*C+ (012-022+2. *066) *S*C3 
0BAR(3,1)  -  0BRR(lr3) 

0BAR(3,2)  -  0BAR(2,3) 

<»RR(3,3)  -  <011+022-2. *012-2. *066) *S2*C2+066*(S4+C4) 

DO  L  «  1,  3 
DO  J  -  1,  3 

ONRT(L,J)  -  I»ttT(L,J)  +  QRAR(L,J)  *  PTIiK(I) 

END  DO 
END  DO 

aiD  DO 

DO  L  -  1,  3 
DO  J  »  1,  3 

DIIRt(I.,J)  -  DI(RT(L,J)/TLM 
MHO  DO 
END  DO 

BK>  IP 

ELSE  XP  (  NBIDXH  .EO.  3  )  THEN 
(EX, BY, BS, 6YZ, GZX, GXY] 

DO  X  «  IK)PP,  Nil 

V21(I)  -  V12(l)  *  (E2(I)/E1(X)) 

V32(X)  -  V23(X)  *  (E3(X)/B2(X)) 

V31(I)  -  V13(X)  *  (E3(I)/B1(I)) 

DEL  -  •<1,0-V12(I)*V21{X)-V23(X)*V32(I)-V13(1)*V31(X)- 
1  2. *721 (X) *732 (X) *713(X) ) / (El (X) *B2 (X) *E3 (I) ) 

C».(l,l)  -  (  1.0000  -  723(1) *732(1)  )  /  (  E2 (I) *E3 (I) *DEL  ) 
(3.(1, 2}  -  (  712 (X)  +  732(1) *713(1)  )  /  (  El (X) *E3 (X) *DEL  ) 
CZ.(1,3)  -  (  713(1)  +  712(X)*723(X)  )  /  (  El  (X)  *E2  (1)  *DEL  ) 

CX.(2,2)  -  (  1.0000  -  713(1)  *731  (I)  )  /  (  El  (X)  *E3  (X)  *DEL  ) 

(3.(2,3)  -  (  723(1)  +  721(X)*713(I)  )  /  (  El  (I)  *E2  (1)  *DEL  ) 

CX.(3,3)  -  (  1.0000  -  712(X)*721(X)  )  /  {  El  (I)  *E2  (I)  *DEI.  ) 

CX.(2,1)  •  CL(1,2) 

(3.(3,!)  -  (3.(1, 3) 

<3.(3,2)  -  CL<2,3) 

(3.(4,4)  *  623(1) 

CL(5,5)  -  631(1) 
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CL(6,6)  -  G12<1) 

C(»4PirPE  THE  KTH  REDUCED  C  MATRIX  (PLATE  COORDINATES) 

CO  -  COS (PHI) 

C2  -  C0*C0 
C3  -  CO*CO*CO 
C4  -  C2*C2 
SO  «  SIM (PHI) 

52  -  S0*S0 

53  -  S0*S0*S0 

54  -  S2*S2 

C2T  -  COS(2.*PHI) 


C 


QBAR(1,1) 

1 


QBAR(2,2) 

OBAR(3,3) 
QBAR(4,4) 
QBAR(5,5) 
QBAR(6,  6) 


<3BAR(1,2) 

1 

QBAR(2,1) 

QBAR(1,3) 

QBAR(3,1) 

QBAR<2,3) 

Q8AR(3,2) 

QBAR(1,6) 

1 


<ffAR(6,l) 

(}BAR(2,€) 


QBAR(6,2) 

^aAR(3,6) 

QBAR(6,3> 

(»AR(4,5) 

QBAR(5,4> 


CL(1,1)*C4  +  CL(2,2)*S4  +  2*CL(1,2) *S2*C2  + 
4*CL(6,6)*C2*S2 

CL(1,1)*S4  +  CL(2,2)*C4  +  2*(CL(1,2)  + 

2’*CL(6,6))*S2*C2 

CL  (3,  3) 

CL(4,4)*C2  +  CL(5,5)*S2 
CL(5,5)*C2  +CL(4,4)*S2 

CL(6,6)  +  {CL(1,1)  +  CL{2,2)  -  2*CL(1,2)  - 
4*CL(6,6) )*S2*C2 

CL{1,2)  +  (CL(1,1)  +  CL(2,2)  -  2*CL(1,2)  - 

4*CL(6, 6))*S2*C2 

QBAR(1,2) 

CL{1,3)*C2  +  CL(2,3)*S2 
(^AR(1,3) 

CL{1,3)*S2  +  CL(2,3)*C2 
QBAR(2,3) 

C0*S0*(CL(1,1)*C2  -  CL(2,2)*S2  -  C2T*(CL(1,2)  + 
2*CL(6,6))) 

QBAR(1,6) 

S0*C0*(CL{1,1)*S2  -  CL{2,2)*C2  +  C2T*(CL(1,2)  + 
2*CL(6,6))) 

QBAR(2,6) 

S0*C0*(CL(1,3)  -  CL(2,3)) 

QBAR(3,6) 

SO*CO*(CL{5,5)  -  CL(4,4)) 

QBAR(4,S) 


TIM  -  TIM  +  PTHK(I) 


DO  L  -  1,  6 
DO  J  -  1,  6 

DMAT(L,J)  -  DMAT(LrJ)  -«■  QBAR(L,J)  *  PTHK(I) 
END  DO 
m>  DO 


END  DO 


DO  L  -  1,  6 
DO  J  -  1,  6 

OMAT(L,J)  *  DMAT(L,  J)/TXM 
END  DO 
END  DO 


END  IF 


-1 

COMPUTE  SHAT  -  DMAT 
MOIM  »  6 

CALL  INVERS (DMAT, SMAT, INDEX, NDIM,  MORD) 


C 


RETURN 

»n> 
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c 

c 

c 


SUBROUTINE  SHAPE{  NODNUM,NELDIM,XSI,ETA,CEE,DXSI,DETA,DCEE  ) 
C(»ffi>UTATION  OF  SHAPE  FUNCTIONS  AND  THEIR  DERIVATIVES 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  SFUNC(20) ,DXSI (20) ,DETA(20) ,DCEE (20) 

IF  (  NELDIM  .EQ.  2  )  THEN 


IF  (  NODNUM 

SFUNC(l) 

SFUMC(2) 

SFUNC(3) 

SFUNC{4) 

DXSKl)  - 
DXSI(2)  " 
DXSI(3)  - 
DXSI(4)  « 

OETA(l)  - 
OBTA(2)  « 
DBTA(3)  - 
OBTA(4)  - 


«  0.25*(1.-XSI)*(1.-ETA) 

-  0.25*(1.+XSI)*(1.-ETA) 

-  0.25*(1.-XSI)*(1.+ETA) 

-  0.25*(1.+XSI)*(1.+ETA) 

-0.25* (1. -ETA) 

0.25* (1. -ETA) 
-0.25*(1.+ETA) 
0.25*(1.+ETA) 

-0.25*(1.-XSI) 

-0.25*(1.+XSI) 

0.25*(1.-XSI) 

0.25*(1.+XSI) 


ELSE  IF  (  NODNUM  .EQ.  6  )  THEN 


SFUNC(l)  - 

SFUNC(2)  - 

SFUNC(3)  » 
SFUNC(4)  - 
SFUMC(S)  - 

SFUMC(6)  » 


0.25* 

0.25* 

0.25* 

0.25* 

0.50* 

0.50* 

0.25* 

0.25* 

0.25* 

0.25* 


(I.-XSI) 

(X.-XSl) 

(l.+XSI) 

(l.+XSI) 

(l.-XSI) 

(l.+XSI) 

(l.-XSI) 

(l.-XSI) 

(l.+XSI) 

(l.+XSI) 


*(1.-BTA)  - 

*(1.-ETA**2) 

*(1.-BTA)  - 

*(l.-ETA**2) 

*(1.-ETA**2) 

*(1.-ETA**2) 

*(1.+ETA)  - 

*(1.-ETA**2) 

*(1.+ETA)  - 

*(1.-ETA**2) 


DXSI(l)  -  -0.25* (1. -ETA)  +  0 .25* (l.-ETA**2) 
DXSI(2)  -  0.25* (1. -ETA)  -  0 .25* (1 .-ETA**2) 

DXSI(3)  -  -0.50*(1.-BTA**2) 

DXSI(4)  -  0.50*(1.-ETA**2) 

DXSX(S)  -  -0.25* (l.+ETA)  +  0.25* (l.-ETA**2) 
DXSI(6)  -  0.25*(1.+ETA)  -  0 .25* (1 .-ETA**2) 

DETA(l)  »  -0.25*(1.-XSI)  +  0 .50*ETA* (1 .-XSI) 
DETA(2)  -  -0.25*(1.+XSI)  +  0.50*ETA* (l.+XSI) 
DETA(3)  -  -ETA* (l.-XSI) 

DETA(4)  »  -ETA* (l.+XSI) 

DBTA(5)  •  0.25*  (l.-XSI)  +  0.50*ETA*  (1.-X.SI) 
DETA(6)  -  0.25* (l.+XSI)  +  0 .50*ETA* (1 , +XSI) 


ELSE  IF  {  NODNUM  .EQ.  8  )  THEM 


SFUNCd) 


SFUMC(2) 

SFUNCO) 


SFUMC(4) 

SFUNC(5) 

sruNC(e) 


0.25* 

0.25* 

0.25* 

0.50* 

0.25* 

0.25* 

0.25* 

0.50* 

0.50* 

0.25* 


(l.-XSI) *(1 
(l.-XSI**2) 
(l.-XSI) *(1 
{l.-XSI**2) 
(l.+XSI) *(1 
(l.-XSI**2) 
(l.+XSI) *(1 
(l.-XSI)*(l 
(l.+XSI)*(l 
(l.-XSI)*(l 


.-ETA)  - 
*(1,-ETA) 
.-ETA**2) 
*(1.-ETA) 
.-ETA)  - 
*(1.-ETA) 
.-ETA* *2) 
.-ETA* *2) 
.-ETA* *2) 
.+ETA)  - 


c 


c 


c 

c 

c 


c 


c 


c 


X  0.25*(1.-XSI)*{1.-ETA**2)  - 

2  0.25*(1.-XSI**2)*(1.+BTA) 

SFUKC(7)  -  0.50*<1.-XSI**2) *(1.+BTA) 

SFUHC(8)  -  0,25*(1.+XSI)*(1.+BTA)  - 

1  0.25*(1.-XSI**2)*(1.+ETA)  - 

2  0.25*{1.+XSI)*(X.-ETA**2) 


X 


X 


X 


X 


DXSKX) 

DXSX(2) 

DXSI(3> 

DXS1(4) 
OXSI (5) 
DXSZ(6) 

DXSI(7) 

DXSZ(8) 


-0.25*(X.-ETAJ  +  0.5*XSI*(X.-ETA)  + 
0.25*{X,-ETA**2) 

-XSI*(X.-ETA) 

0.25* (X. -ETA)  +  0.5*XSI*(1.-ETA)  - 
0.25*(X.-ETA**2) 

-0.50*(X.-ETA**2) 

0.50*(X.-ETA**2) 

-0.25*(X.+ETA)  +  0.25*(1.-ETA**2)  + 
0.50*XS1*(X.+ETA) 

-XSI*(X,+ETA) 

0.25*{X.+ETA)  +  0.5*XSI*<1.+ETA)  - 
0.25*(1.-ETA**2) 


X 


X 


X 


X 


DBTA(X)  -  -0.25*(1.-XSI)  +  0.5*BTA* (X.-XSI)  + 
0.2S*<1.-XSI**2) 

DETA(2)  -  -0.50*{1.-XSI**2) 

DETA(3)  -  -0.25*(X.+XSI)  +  0.5*ETA* (X.+XSI)  + 
0.25*(X.-XSI**2) 

DETA(4)  -  -ETA*<1.-XSI) 

DETA(5)  -  -ETA* (X.+XSI) 

OETA(6)  -  0.25*(X.-XS1)  -  0.25*(1.-XS1**2)  + 

0.50*ETA* (X.-XSI) 

DBTA(7)  -  0.50*(X.-XSI**2) 

OBTA(8)  -  0.25*(X.+XSI)  +  0.5*ETA* (X .+XSI)  - 

0.25*(X.-XSI**2) 


END  IF 


EI^B  IF  (  NEU>IM  .EQ.  3  )  THEN 


SFUNC(l)  -  O.X25*(X.-XSI)*(X.-ETA)*(X.-CEE)- 
SFUNC(2)  -  O.X25*(X.+XSI)*(X.-BTA)*(X.-CEE) 
SFUMCO)  -  O.X25*(X.+XSI)*(X.+ETA)*(X.-CEE) 
SFUliC(4)  »  0.X25*(X.-XSI)*(X.+ETA)*(X.-CEE) 
SFaNC(S)  -  0.X25*(X.-XSI)*(X.-ETA)*(X.+C:EE) 
SrtR(K:(6)  -  0.125*(X.+XSI)*(1.-BTA)*(X.+C:EE) 
SFUNC(7)  -  0.X25*(X.+XSI)*(X.+ETA)*(X.+CEE) 
SFUNC(8)  -  0.X25*(X.-XSI)*(X.+ETA)*(X.+CEE) 


DXSKX)  -  -O.X25*(l.-BTA)*(X.-CBE) 
DXSX(2)  -  O.X25*(X.-ETA)*(X.-CEB) 
DXSI(3)  -  O.X25*(X.+ETA)*(X.-CEE) 
DXSI(4)  -  -O.X25*(l.+ETA)*(X.-CEE) 
DXSI(5)  -  -O.X25*(X.-ETA)*(X.+CEE) 
DXSI{6)  -  O.X25*(l,-ETA)*(X.+CEE) 
DXSI(7)  -  O.X25*(l.+ETA)*(X.+CEE) 
DXSI(8)  -  -O.X25*(X.+BTA)*(X.+CEE) 

DBTA(l)  -  -O.X25*(X.-XSI)*(X.-CEE) 
DBTA(2)  -  -O.X25*(X.+XSI)*(X.-CEE) 
DBTA(3)  -  O.X25*(X.+XSI)*(X.-CEB) 
DBTA(4)  -  O.X25*(l.-XSI)*(X.-CBB> 
DETA(5)  -  -0.X2S* (X.-XSI) *(X.+CEE) 
DETA(6)  -  -O.X25*(X.+XSI)*(X.+CEE) 
DBTA(7)  -  0.X2S* (X.+XSI) *(X.+CEE) 
DBTA(8)  -  0.X25*(1.-XSI)*(X.+CBE) 

DCBB(X)  -  -O.X25*(X.-XSI)*(X.-ETA) 
DC«5B(2)  -  -O.X25*(l.+XSI)*(l.-BTA) 
DCEE(3)  -  -O.X25*(X.+XSI)*(X.+ETA) 
DCEB(4)  -  -0.X25* (X.-XSI) *(X.+ETA) 
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DCBB(5)  -  0.125*(1.-XSI)*{1.-ETA) 

DCBB(6)  -  0.125*{1.+XSI)*(1.-ETA) 

I)CEE(7)  -  0.125*  (l.+XSI)*(l.+ETA) 

DCEE(8)  -  0.125*(1.-XSI) *<1.+ETA) 

C 

END  IF 
C 

RBTUBN 

BHD 

C 

C 

C 

SUBROUTINE  JACOB (  NOONUM, NELOIM, X, Y, Z, OXSI, DETA, OCEE, 

1  AJINV,DETJ  ) 

C 

C  COMPUTE  JACOBIAN  MATRIX,  ITS  DETERMINANT  AND  INVERSE 
C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C 

DIMENSION  X{20} , Y(20) ,Z (20) ,DXSI (20) ,DETA(20)  ,DCEE (20) , 

1  AJMT(3,3) ,AJINV(3,3) 

C 

CALL  MXINT(  AJMT,  3,  3,  O.ODO  ) 

C 

IF  (  NELDIM  .EQ.  2  )  THEN 
C 

DO  I  -  1,  NODNUM 

AJMT(1,1)  -  AJMT(1,1)  +  DXSI(I)*X(I) 

AJMT(1,2)  -  AJMT(1,2)  +  DXSI(I)*Y(I) 

AJMT(2,1)  -  AJMT(2,1)  4^  DBTA(I)*X(I) 

AJMT(2,2)  -  AJMT(2,2)  +  DETA(I)*Y{I) 

END  DO 
G 

DBTJ  «  AJMT(l,l)*AJMT(2,2)*>AJMT(2,I)*AJ)Fr(l,2) 

G 

G  GOIffUTB  INVERSE  OF  JACOBIAN 

C 

AJXNV(1,1}  -  AJHT(2,2)/DETJ 
AJINV(2,1)  -  -AJMT(2,1)/DETJ 
AJXMV(1,2)  -  -AJHT(1,2)/DETJ 
AJIlfV(2,2)  •  AJMT(1,1)/DETJ 
C 

ELSE  IF  (  NELDIM  .EQ.  3  )  THEM 
C 

DO  I  «  1,  NODNUM 
C 

AJMT(1,1)  -  AJMT(1,1)  -i-  DXSI(I)*X(I) 

AJIIT(1,2)  -  A0MT(1,2)  +  DXSI(I)*Y(I) 

AJltT(l,3)  -  AJMT(1,3)  •i’  DXSI(I)*Z(I) 

AJMT(2,1)  -  AJMT (2,1)  OBTA(I)*X(I) 

AJMT(2,2>  -  AJMT(2,2)  +  DETA(I)*Y(I) 

AJMT (2, 3)  -  AJMT (2, 3)  +  DBTA(I)*Z(I) 

AJMT(3,1)  -  AJMT(3,1)  +  DCEE(I)*X(I) 

AJMT(3,2)  -  AJMT(3,2)  +  DCEE(I)*Y(I) 

AJMT(3,3)  -  AJMT(3,3)  ♦  DCEE(I)*Z(I) 

tm  DO 
C 

DBTJ  -  AJMT{1,1>*(AJMT(2,2)*AJMT(3,3)-AJMT(2,3)*AJMT(3,2))- 

1  AJMT(1,2)*(AJMT(2,1)*ACWT(3,3)-AJMT(2,3)*AJMT(3,1))  + 

2  AJMT(1,3)*(AJMT(2,1)*AJMT(3,2)-AJMT(2,2)*AJMT(3,1)> 

C 

G  GCBfPUTB  INVERSE  OF  JACOBIAN 

C 

AJXNVd,!)  -  (AJMT(2,2)*AJMT{3,3)-AJMT(2,3)*AJMT(3,2))/DETJ 

AJXMV(2,1)  -  -(AJMT(2,1)*AJMT(3,3)-AJMT(2,3)*AJMT{3,1))/DETJ 
AJZMV(3,1)  -  (AJMT{2,1)*AJMT(3,2)-AJMT(2,2>*AJMT(3,1))/DETJ 

AJtliV(l,2)  -  -(AJMT(1,2)*AJMT(3,3)-AJMT(1,3)*AJMT(3,2))/DETJ 
AJXMV(2,2)  -  (AJMT(1,1)*AJMT(3,3)-AJMT(1,3)*AJMT(3,1))/DETJ 
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AJINV(3,2)  -  -{AJMT(1,1)*AJMT(3,2)-AJMT(1,2)*AJMT{3,1))/DETJ 
AJINV(1,3)  -  (AJMT(1,2)*AJMT{2,3)-AJMT(1,3) *AJMT{2,2) ) /DETJ 

AJINV{2,3)  -  -(AJMT(1,1)*AJMT(2,3)-AJMT(1,3)*AJMT(2,1))/DETJ 
AJ1NV(3,3)  -  (AJMT(1,1)*AJMT(2,2)-AJMT(1,2)*AJMT(2,1))/DETJ 

C 

WD  IF 
C 

RETURN 

END 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  ASTRSS (XSI,  ETA, CEE, JTYPE,  LAYER, NBLOIM, NODNUM, 

1  PMAT,THK,NBVAL,XB,YE,ZE,NSIDE,NVER) 

IMPLICIT  DOUBLE  PRECISION  {A-H,0-Z) 

DIMENSION  PMAT(6,100),XE(20),YE(20),ZE(20) ,THK(3) 

IF  (  NELOIM  .EQ.  2  )  THEN 

IF  (  NODNUM  .EQ.  4  )  THEN 

AC  -  (-XE(l)+XE{2)-XE(3)+XE(4))/4.0 
BC  -  (-YE(1)-YE(2)+YE<3)+YE{4) ) /4.0 

X  -  AC*XSI 

Y  -  BC*ETA 

A  -  (XB(2)-XE(l))/2.0 

ELSE  IF  (  NODNUM  .EQ.  6  )  THEN 

AC  -  (-XE(3)+XE<4>)/2.0 

BC  -  {-YB(l)-YE(2)+YE(5)+YE{6>)/4.0 

X  -  AC*XSI 

Y  -  BC*BTA 

ELSE  IF  (  NCX3NUM  .EQ.  8  )  THEN 

AC  «  (-XE(4)+XE(5))/2.0 

BC  -  (-YE(2)+YE(7))/2,0 

X  -  AC*XSI 

Y  -  BC^ETA 

A  -  (XB(2}-XE(l))/2.0 
END  IF 

ELSE  IF  (  NELDIM  .EQ.  3  )  THEN 
IF  (  IKTDNUM  .EQ.  8  )  THEN 

liC  -  (-XE(l)+XE(2)+XE(3)-XE{4)-XE(5)+XE(6>+XE{7)-XE(8))/8.0 
BC  -  (-YE(1)-YE(2)+YE(3)+YE(4)-YB(5)-YE{6)+YE(7)+YE{8) ) /8.0 
CC  -  {-ZB<l)-2E<2)-ZE{3)-ZE(4)+ZE(5)+ZE(6)+ZE(7)+ZE(8))/8.0 

X  -  AC*XSI 


Y  -  BC*BTA 
Z  -  CC*CEE 
C 

END  IF 
C 

END  IF 
C 

CALL  MXINT(PMAT,  6,  100,  O.ODO) 
C 
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IF  (  JTYPE  .EQ.  1  >  THEN 


2-D  2-LAYERED  6-NODB  HYBRID  ELEMENT. 

OPTIONAL  ZERO  TRACTION  CONDITIONS  MAY  BE 
SPECIFIED  ON  DESIGNATED  ELEMENT  SIDES. 


Y 

A 


5 - 6 

)  I 

|F1  IF4 

I  I 

I  I 

3 - 4 

I  I 

|F2  |F3 

I  I 

I  t 

1 - 2 - >X 


T1  -  THK{l)/2. 

T2  -  THK(2)/2,. 

TF  (  NVER  .EQ.  11  )  THEN 

LINEAR  STRESS  FIELD 

NBVAL  •  10 


IF  (  LAYER  .EQ. 

PMAT(1,1)  - 

PHAT(1,2)  - 

PMAT(1,3)  >• 

PMAT(2,4)  - 

PMAT(2,5)  « 

PMAT(2,7)  - 

PMAT(3,6)  - 

PMAT(3,7)  - 

PNAT(3,2)  X 

ELSE  IF  (  LAYER 

PMAT(1,8)  X 
PMAT{1,9)  - 

PMAT(1,10)  X 
PMAT(2,4)  X 
PMAT(2,5)  X 
PMAT(2,7)  X 
PMAT(3,6)  X 
PMAT<3,2)  X 
PMAT(3,7)  X 
PMAT(3,9)  - 


1  )  THEN 

1.0 

X 

Y 

1.0 

X 

-Y 

1,0 

X 

-Y 

.EQ.  2  )  THEN 

1.0 

X 

Y 

1.0 

X 

-{T1+T2+Y) 

1.0 

-T1 

X 

-(T2+Y) 


END  IF 

ELSE  IF  (  NVER  .EQ.  12  )  THEN 
QUADRATIC  STRESS  FIELD 
NBVAL  -  18 


C 


50 


ooo 


51 


ooo 


C 

c 


c 

c 


FMAT(2,11) 

X 

PMAT(2,12) 

» 

-T2*X 

PMAT(2,13> 

m 

X**2 

PMAT(3,2} 

m 

-T1  +  Y 

PHAT(3,4) 

m 

-Tl**2  +  Y**2 

PMAT(3,7) 

m 

-A  -  X 

PNAT(3,10} 

m 

-A*  *2  +  X**2 

PMAT(3,9) 

- 

-A*T2  -  T2*X 

PMAT(3,5) 

m 

■-T1*X  +  X*Y 

ELSE  IF  (  LAYER 

.EQ.  2  )  THEN 

PMAT(1,9> 

m 

-A* (X+A) 

PMAT(1,14) 

m 

(X**2-A**2) 

PMATd.lS) 

m 

Y*  <X+A) 

PHAT(2,8> 

m 

1.0 

PMAT(2,11) 

» 

X 

PMAT<2,7) 

Y 

PMAT<2,12) 

X*Y 

PMAT<2,13) 

m 

X**2 

PMAT(3,7) 

■ 

- (X+A) 

PMAT{3,10) 

• 

(X**2-A**2) 

PMAT(3,9) 

m 

Y* (X+A) 

END  IF 

ELSE  IF  (  NVER  .EQ.  13  .AND.  NSIDB  .EQ.  2  )  THEN 


TRACTIONS  SX  &  TXV  SET  TO  ZERO  ON  FACE  F2 


C 

C 


C 

C 


NBVAL  -  15 

IF  (  LATER  .EQ.  1  )  THEN 


PMAT(1,9) 

•  -A* (X+A) 

PHAT(1,14} 

-  (X*+2-A**2) 

PMAT(1,15) 

«  Y* (X+A) 

PMAT(2,8) 

-  1.0 

PMAT(2rll) 

-  X 

PMAT(2,7) 

•  Y 

PMAT(2,12) 

«  X*Y 

PMAT(2,13) 

.  x**2 

PMAT(3,7) 

-  -(X+A) 

PMAT(3,10) 

-  (X**2-A**2) 

PHAT(3,9) 

-  Y*(X+A) 

ELSE  IF  <  LAYER  .EQ.  2  )  THEN 

PMAT(1,1) 

-  1.0 

PMAT(I,2} 

■  -X 

PMAT(1,3) 

-  Y 

PMAT(1,4) 

«  -2*X*Y 

PMAT(1,5) 

-  -0.5*X**2 

PMAT(1,6) 

-  Y**2 

PMAT(2,5) 

-  -0.5*T2**2  - 

PMAT(2,7) 

«  (T1+T2)  +  Y 

PMAT(2,8) 

-  1.0 

PMAT(2,9) 

«  -T1*T2  -  T1*Y 

PMAT(2,10) 

-  -2*T2*X  -  2*X 

PMAT(2,11) 

-  X 

PHAT(2,12) 

«  T1*X 

PMAT(2,13) 

-  X**2 

PMAT(3,2) 

«  T2  +  Y 

PMAT(3,4) 

-  -T2**2  +  Y**2 

PMAT(3,7) 

-  -A  -  X 

PMAT(3,10) 

-  -A**2  +  X**2 

PMAT(3,9) 

-  A^Tl  +  T1*X 

PKAT{3,5) 

-  T2*X  +  X*Y 

-  0.5»Y**2 
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c 

c 


END  IF 

ELSE  IF  (  NVER  .EQ.  13  .AND.  NSIDE  .EQ.  4  )  THEN 
TRACTIONS  SX  fi  TXY  SET  TO  ZERO  ON  FACE  F4 
NBVAL  -  15 


IF  (  LAYER  .EQ.  1  )  THEN 

PMAT(1,1)  -  1.0 

PMAT(1,2)  -  -X 

PMAT(1,3)  -  Y 

PMAT(1,4)  -  -2*X*Y 

PMAT(1,5)  -  -0.5*X**2 

PMAT(1,6)  -  Y**2 

PMAT(2,S)  -  -0.5*T1**2  +  T1*Y  -  0.5*Y**2 

PMAT(2,7)  -  -(T1+T2)  +  Y 

PMAT(2,8)  -  1.0 

PMAT(2,9)  -  -T1*T2  +  T2*Y 

PHAT(2,10)  -  2*T1*X  -  2*X*Y 

PMAT(2,11)  -  X 

PMAT{2,12)  -  -T2*X 

PMAT(2,13)  -  X**2 

PMAT(3,2)  -  -T1  +  Y 

PMAT(3,4)  -  -Tl**2  +  Y**2 

PMAT(3,7)  -  A  -  X 

PMAT(3,10)  -  -A**2  +  X**2 

PMAT(3, 9)  -  A*T2  -  T2*X 

PMAT<3,5)  -  -T1*X  +  X*Y 

ELSE  IF  (  LAYER  .EQ.  2  )  THEN 

PMAT<1,9)  -  A*<X-A) 

PMAT(1,14)  -  (X**2-A**2) 

PMAT<1,15)  -  Y*<X-A) 

PMAT(2,8)  -  1.0 

PMAT(2,11)  -  X 
PMAT(2,7)  -  Y 

PMAT(2,12)  -  X*Y 
PMAT(2,13)  -  X**2 

PMAT(3,7)  -  -(X-A) 

PWAT{3,10)  -  (X**2-A**2) 

PMAT(3,9)  -  Y*{X-A) 

END  IF 


ELSE  IF  (  NVER  .EQ.  13  .AND.  NSIDE  .EQ.  3  )  THEN 
TRACTIONS  SX  fi  TXY  SET  TO  ZERO  ON  FACE  F3 


NBVAL  -  IS 
C 

IF  (  LAYER  .EQ.  1  )  THEN 


PMAT<1,9) 

■■ 

A* (X-A> 

PMAT(1,14) 

«■ 

(X**2-A**2) 

PMAT(1,15) 

■ 

Y* (X-A) 

PNAT(2,8) 

m 

1.0 

PMAT(2,11) 

m 

X 

PMAT{2,7) 

- 

Y 

PMAT(2,12) 

- 

X*Y 

PMAT(2,13) 

m 

X**2 

PMAT(3,7) 

- 

-(X-A) 

PMAT{3,10) 

■ 

(X**2-A**2). 

PMAT(3,9) 

M 

Y* (X-A) 
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c 


c 

c 

c 


ELSE  IF  (  LAYER  .EQ.  2  )  THEN 


PMAT(1,I) 

PMAT(1,2) 

PMAT(1,3) 

PMAT<1,4) 

PMAT(1,5) 

PMAT(1,6) 

PMAT(2,5) 

PMAT<2,7) 

PMAT(2,8) 

PMAT(2«9) 

PMAT(2,10) 

PMAT(2,11) 

PMAT(2,12) 

PMATUflS) 

PMAT(3,2) 

PMAT(3,4) 

PMAT(3,7) 

PMAT(3,10) 

PMAT(3,9) 

PMAT(3«5) 


1.0 

-X 

Y 

-2*X>*Y 

-0.5*X**2 

Y**2 

-0.5*T2**2  -  T2*Y  - 
(T1+T2)  +  Y 
1-0 

-T1*T2  -  T1*Y 
-2*T2*X  -  2*X*Y 
X 

T1*X 
X**2 
T2  +  Y 

-T2**2  +  Y**2 
A  -  X 

-A**2  +  X**2 
-A*T1  +  T1*X 
T2*X  +  X*Y 


END  IF 


END  IF 


ELSE  IF  (  JTYPE  -EQ.  2  )  THEN 


2-D  2-’LAYERED  lO-NODB  HYBRID  ELEMENT. 


Y 


A 

I 

I 

9 - 10 

I  t 

I  I 

7  8 

)  I 

)  I 

5 - 6 


3 


4 


C 

C 


1 


2 


>X 


T1  •  THK(l)/2, 
T2  -  THK(2)/2. 


IF  (  NVER  -EQ-  11  )  THEN 


QUADRATIC  STRESS  FIELD 


MBVAL  -  18 


IF  (  LAYER  -EQ.  1  )  THEN 


PMAT(1,1) 

PMAT(1,2) 

PtlAT(l,3) 

PMAT(1,4) 

PMAT(1,5) 

PMAT(1,6) 


1.0 

-X 

Y 

-2*X*Y 

-0.5*X**2 

Y**2 


0.5*Y**2 
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PMAT(2,7)  -  1.0 

PMAT{2,8)  -  2*(T1+T2)*X  -  2*X*Y 

PMAT{2,9)  -  X 

PMAT(2,5)  -  T1*Y  -  0.5*Y**2 

PMAT(2,10)  -  “Y 

PMAT(2,11)  -  T2*Y 

PMAT(2,12)  -  X**2 

PMAT(3,13)  -  1.0 

PMXT(3,5)  -  -T1*X  +  X*Y 

PtttT(3,10)  -  X 

PMIIT(3,11)  -  -T2*X 

PMAT(3,2)  -  Y 

PMAT(3,8)  -  X**2 

PMAT(3,4)  -  Y**2 

ELSE  IF  (  LAYER  .EQ.  2  )  THEN 

PMAT(1,14)  -  1.0 

PMATd,  15)  -  -X 

PMAT(1,16)  -  Y 

PMATd,  17)  -  -2*X*Y 

PMATd,  11)  -  -0.5*X**2 

PMATd,  18)  -  y**2 

PMAT(2,7)  -  1.0 

PMAT(2,5)  -  0.5*T1**2 

PMAT(2,10)  -  -(T1+T2)  -  Y 

PMAT(2,ll)  -  {T1*T2+0.5’»T2**2)  -  0.5*Y**2 

PMAT(2,9)  -  X 

PMAT{2,P'  -  -2*X*Y 

PMAT(2,liJ)  -  X**2 

PMAT<3,13)  -  1.0 

PMAT(3,2)  -  T1 

PMAT(3,4)  »  Tl**2 

PMAT(3,15)  -  T2  +  Y 

PMAT{3,17)  -  -T2**2  +  Y**2 

'PMAT(3,10)  -  X  ... 

PMAT(3,11)  -  X*Y 
PMAT<3,8)  -  X**2 

END  IF 


ELSE  IF  (  NVER  .EQ.  12  )  THEN 
CUBIC  ORDER  EXPANSION 
NBVAL  -  28 

IF  (  LAYER  .EQ.  1  )  THEN 

PMATd,  1)  -  1.0 

PMATd, 2)  -  -X 

PMATd,  3)  -  Y 

PMATd,  4)  -  -2*X*Y 

PMATd, 5)  -  -0.5*X**2 

PMATd,  €)  -  Y**2 

PMAT<1,7)  -  -3*X*Y**2 

PMATd, 8)  -  -Y*X**2 

PMAT<1,9)  -  -X**3/3. 

PMATd,  10)  -  Y*'*3 

PMAT(2,5)  -  -Tl**2/2  +  T1*Y  -  0.5*Y**2 

PMAT(2,8)  -  -2*Tl**3/3  +  T1**2*Y  -  Y**3/3. 

PMAT(2,13)  «  T1+T2  -  Y 
PMAT{2,12)  -  1.0 

PMAT{2,14)  -  -(T1*T2+0.5*T2**2)  +  T2*Y 
»IAT(2,15)  -  (Tl*T2**2+T2**3/3.)  -  T2**2*Y 

PMAT<2,9)  -  -■T1**2*X  +  2*T1*X*Y  -  X*Y**2 

PMAT(2,1S)  -  X 


55 


PMAT(2,17) 

PNAT(2,18) 

PIUiT(2,19) 

PIAT(2,11) 

PMA7(2,20) 

PM&T(3,2) 

PM&T(3,4) 

PM&7(3,7) 

PHAT(3,21) 

PMIkT(3,22) 

PM&T(3,23) 

PMAT(3,24) 

PI»T(3,S) 

PMAT(3,8) 

PMAT(3,13) 

PH2^T(3,14) 

PMAT{3,15) 

PMAT(3,9) 

PMATO,!'/) 

PM]kT(3,18) 

PKAT(3,19) 


2*<T1+T21*X  —  2*X*V 
-(2*T1*T2+T2**2) *X  +  2*T2*X*y 
3*{T1+T2)*X**2  -  3»Y*X**2 
X**2 
X**3 
-T1  +  Y 
-Tl**2  +  Y**2 
-Tl**3  +  Y**3 
1.0 
-T2 
T2**2 
-12**3 
-T1*X  +  X*Y 
-T1**2*X  +  X*Y**2 
X 

-T2*X 

T2**2*X 

-T1*X**2  +  Y*X**2 
X**2 

-T2*X**2 

X**3 


eZ.SE  IP  (  ZAYBR  .£0.  2  }  THEN 


PMRT(1,2S) 

m 

1.0 

nnT(l,22) 

m 

-X 

PMR7(1,26) 

m 

Y 

PMAT(1,23) 

m 

-2*X*Y 

PMAT(1,14) 

m 

-0.5*X**2 

PMRT(1,27) 

m 

Y**2 

mAT(l,24} 

m 

-3*X*Y**2 

PMRT(1,1S) 

m 

-Y*X**2 

mAT(l,18} 

m 

-X**3/3. 

PIIRT(1,28) 

m 

Y**3 

PHET(2,12) 

m 

1.0 

PMRT(2,1€) 

m 

X 

P1»T(2,13) 

m 

-Y 

PMI17{2,17) 

m 

-2*X*Y 

Pm7(2,ll) 

m 

X**2 

PMR7(2,14) 

m 

-0.5*Y**2 

PMA7(2,18) 

m 

-X*Y**2 

PMR7<2,19) 

m 

-3*Y*X**2 

PMR7(2,20) 

m 

X**3 

PHli7(2,15) 

m 

-Y**3/3. 

Ptn7(3,21) 

m 

1.0 

PNA7(3,13) 

m 

X 

Ptn7(3,22) 

m 

Y 

P1IR7(3,14) 

m 

X*Y 

PIU7(3,  17) 

m 

X**2 

PMA7(3,23) 

m 

Y**2 

PMA7(3,1S) 

m 

X*Y**2 

PHR7(3,18) 

m 

Y*X**2 

PMA7<3,19} 

m 

X**3 

PMR7(3,24) 

m 

Y**3 

BHD  IF 


END  IP 

EI.SE  IP  (  JTYPE  .EQ.  3  )  THEN 


2-D  2-ZAYERED  13-NODE  HYBRID  ELEMENT. 


I 

II 


12 


—13 
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ooooo  o  oooooooooooooo 


c 

c 


c 

c 


*'  T1  -  THK(2)/2. 

T2  -  THK(3)/2. 

IF  (  NVER  .EQ.  11  )  THEN 

COMPLETE  CUBIC  EXPANSION 

{  CONTINUITY  OF  TXY  IS  VIOLATED  BY  THE  BETA  26s27  TERMS  ) 
NBVAL  -  27 


IF  (  LAYER  .EQ.  1  )  THEN 

PMAT(1,1) 

-  1.0 

PMAT(1,2) 

-  X 

PMAT(1,3) 

•  Y 

PMAT(1,4) 

-  X**2 

PMAT(1,S) 

»  X*Y 

PMAT(1,6) 

-  Y**2 

PMAT<1,7) 

-  X**3 

PMAT<1,S) 

-  3*X**2*Y 

PMAT(1,9) 

-  3*X*Y**2 

PMAT(2,4) 

-  Tl**2  -  2*T1*Y  +  Y**2 

PliAT(2,8) 

-  2*T1**3  -  3*T1**2*Y  +  Y**3 

PMAT(2,11) 

-  1.0 

PMAT(2,16) 

•  -{T1+T2)  +  Y 

PMAT(2,17) 

«  (T2**2+2*T1*T2)  -  2*T2*Y 

PMAT<2,23) 

«  -(T2**3+3*T1*T2»*2)  +  3*T2**2*Y 

PMAT(2,7) 

-  3*Tl**2*X  -  6*T1*X*Y.+  3*X*Y**2 

PMAT(2,20) 

-  -m+T2)*X  +  X*Y 

PNAT(2,22) 

-  (6'»T1*T2+3*T2*>»2)  *X  -  6*T2*X*Y 

PMAT(2,14) 

«  X 

PMAT(2,25) 

-  -3*(T1+T2)*X**2  +  3*X**2*y 

PMAT(2,18) 

-  X**2 

PMAT(3,2} 

m  T1  -  Y 

PMAT(3,5) 

•  0.5*T1**2  -  0.5*Y**2 

PMAT(3,9) 

-  Tl**3  -  Y**3 

PMAT(3,12) 

-  1.0 

PMAT(3,13> 

.  t2 

PMAT(3,19) 

•  -•0.5*T2**2 

PMAT(3,24> 

-  T2**3 

PMAT(3,4) 

«  2*T1*X  -  2*X*Y 

PMAT(3,8) 

«  2*T1**2*X  -  3*X*Y**2 

PMAT(3,16) 

»  -X 

PMAT{3,17) 

-  2*T2*X 

PMAT(3,23) 

«  -3*T2**2*X 

PliAT(3,7) 

-  3*T1*X**2  -  3*X**2*Y 

PMAT(3,20) 

-  -0.5*X**2 

PMAT(3,22) 

-  3*T2*X**2 

PMAT(3,25) 

•  -X**3 

PMAT(3,26> 

-  X**4 

ELSE  IF  (  LAYER  .EQ.  2  )  THEN 
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PMAI(1,10)  -  1.0 

PHAT(1,13)  -  X 
WttT(l,15)  -  Y 
PMAT(1,17)  -  X**2 

PMA7(1,19)  -  X*Y 
PlttT(l,2l)  -  Y**2 
PilXT(l,22)  -  X**3 

PMXT(1,23)  -  3*X*<'2*Y 

PMAT{1,24)  -  3*X*Y**2 

PMXT{2,11>  -  1.0 

PMAT(2,14)  -  X 
PMiiT(2,16)  -  Y 
PIIAT<2,17)  -  Y**2 

PlttT{2,18)  -  X**2 

PMJ17(2,20)  -  X*Y 
PMAT(2,22)  -  3*X*Y**2 

mAT(2,23)  -  Y**3 

PKXT<2,2S)  -  3*X**2*Y 

n(AT<3,12)  -  1.0 

PMAT(3,1'3)  -  -Y 
PimT<3rl6)  -  -X 
PMXT{3,17)  -  -2*X*Y 
PMXT(3,19)  -  -0.5*Y**2 
PKAT(3,20)  -  -0.5*X**2 
PMM(3,22)  -  -3*X**2*Y 
PM&T(3,23)  -  -3*X*Y**2 
PMAT(3,24)  -  -Y**3 
PMXT(3,2S)  -  -X**3 
PMAT(3,27)  -  X**4 

END  IF 

ELSE  IF  (  NVER  .EQ.  12  )  THEN 

QUADRATIC  STRESS  FIELD 

(ONLY  STRESS  CONTINUITY  CCHTOITIONS  AT  INTERFACE  ENFORCED) 

NBVAL  -  30 


IF  (  LAYER  .EQ. 

1  )  THEN 

PMAT(1,1) 

.. 

Y**2 

raAT(l,2) 

m 

X**2 

PMAT(1,3) 

m 

X*Y 

PMAT(1,4) 

m 

Y 

PHAT(1,S) 

m 

X 

PHAT(1,6) 

m 

1-0 

PMAT<2,7) 

m 

X*Y-X*T1 

PMAT(2,8) 

m 

Y 

PMAT<2,9) 

m 

1.0 

PMAT{2,10) 

m 

X**2 

PMAT<2,11) 

m 

-X*T2 

PMAT(2,12) 

m 

X 

PHA7(2,13) 

m 

Y**2 

PMAT(3,14) 

m 

Y**2 

PMAT(3,15) 

m 

X*Y 

PMAT(3,16) 

m 

X**2 

PMAT(3,17) 

m 

Y 

PMAT(3,18) 

m 

X 

PMAT(3,19) 

- 

1.0 

ELSE  IF  (  LAYER  .EQ.  2  )  THEN 

PMAT(1,20>  -  1.0 

PHAT(l,2l>  -  Y**2 

PMAT(1,22)  -  X**2 

PMAT(1,23)  -  X*Y 
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PMAT(1,24) 

Y 

PMAT(1,25) 

X 

PMAT(2,26) 

Y**2-T2**2 

PMAT(2,27) 

m 

T2+Y 

PMAT(2,8) 

m 

T1 

PM&T(2,9> 

- 

1.0 

PMMr(2,10) 

m 

X**2 

PMAT(2,11) 

* 

X*Y 

PIUVT(2,12) 

■ 

X 

PMAT(2,13) 

ai 

Tl**2 

PMAT(3,28) 

m 

Y**2-T2**2 

PMAT(3,29) 

m 

X*Y+T2*X 

PMAT(3,30) 

m 

T2+Y 

PHAT<3,14) 

■ 

Tl**2 

PIUT(3,1S} 

» 

T1*X 

PMAT(3,16) 

m 

X**2 

PMAT(3,17) 

m 

T1 

PMAT{3,18) 

m 

X 

PMM:(3,19) 

1.0 

END  IF 

END  IF 

ELSE  IF  (  JTYPE  .EQ 

.  4 

)  THEN 

2-D  3-LAYEREO  8H 

MODE  HYBRID  ELEMENT 

c 

c 


c 

c 


c 

c 


PMAT(1,6)  -  Y**2 

PMAT(2,5)  -  -0.5*T1**2  +  T1*Y  -  0.5*Y**2 

PlttT(2,7>  -  -{71+72)  +  Y 

PMAT<2,8)  -  -(71*72+0.5*72**2)  +  72*Y 

PHAT(2,9)  -  1.0 

PMAT(2,10)  -  X 

PI»T<2,1X)  -  -  (71+72)  *X  +  X*Y 

PMAT(2,12)  -  X**2 

PMAT{3,2)  -  71  -  Y 

PHJi7(3,4)  -  0.5*71**2  -  0.5*Y**2 

PMA7(3,13)  -  1.0 

PMA7(3,14)  -  72 

PMAT(3,15)  -  -0.5*72**2 

PMA7(3,5)  -  -71*X  +  X*Y 

PMAT(3,7)  -  -X 

PMA7(3,8)  -  -72*X 

PMA7(3,11)  -  -0.5*X**2 

ELSE  IF  (  lAYER  .EQ.  2  )  7HEH 

PMAT(1,16)  -  1.0 

PMA7(1,14)  "  X 
PMAT(1,17)  -  Y 
PMAT(1,15)  -  X*Y 
PMA7(1,8)  -  -0.5*X**2 

PlttT(l,18)  -  Y**2 

PMA7(2,9)  -  1.0 

PMRT(2,10)  -  X 
PMA7<2,7)  -  Y 

PHDT(2,11)  -  X*Y 
PMAT(2,12)  -  X**2 

PM&T(2,8)  -  -0.5*Y**2 

PMAT<3,13)  -  1.0 

PMXT(3,7)  •  -X 

P»a7(3,14)  »  -Y 
PMA7(3,8)  -  X*Y 

PHAT(3,11)  »  -0.5*X**2 
PMR7(3,15)  -  -0.5*Y**2 

ELSE  IF  (  LAYER  .EQ.  3  )  7HEN 


PMAT(1,19) 

PMAT(1,20) 

PMAT(1,21) 

PMAT(1,22) 

PMAT(1,23) 

PMAT(1,24) 

PMAT(2,9) 

PMAT(2,7) 

PMAT<2,e) 

mA7(2,23) 

PMA7(2,10) 

PMAT(2,11) 

PMAT(2,12) 

PMA7(3,13) 

PMAT(3,14) 

PMAT(3,15) 

PKAT(3,20) 

»MA7(3,22) 

PMA7{3,7) 

PMA7(3,8) 

PMAT(3,23) 

PMAT(3,11) 


1.0 

X 

Y 

X*Y 

-0.5*X**2 

Y**2 

1.0 

(72+73)  +  Y 

-(72*73+0.5*72**2)  -  72*Y 
-0.5*73**2  -  73*Y  -  0.5*Y**2 
X 

(72+73) *X  +  X*Y 
X**2 
1.0 
-72 

-0.5*72**2 
-73  -  Y 

0.5*73**2  -  0.5*Y**2 
-X 
72  *X 

73*X  +  X*Y 
-0.5*X**2 


m)  IF 


C 


ELSE  IF  (  NVBR  .EQ.  12  )  7HEM 
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CUBIC  FIELD  EXPANSION 
NBVAL  «  38 


IF  (  LAYER  .EQ.  1  >  THEN 


PMAT{1,1) 

m 

1.0 

PMAT(1,2) 

m 

X 

PMAT(1,3) 

m 

Y 

PMAT(1,4) 

m 

X*Y 

PMAT(1,5) 

m 

-X**2/2. 

PMAT(1,6) 

m 

Y**2 

PHAT(1,7) 

m 

-3.*X*Y**2 

PMAT(1,8) 

m 

-Y*X**2 

PMAT(1,9) 

m 

-X**3/3. 

PMAT(1,10) 

m 

Y**3 

PMAT(2,5} 

m 

-0,5*T1**2  +  T1*Y  -  0.5*y**2 

PMAT(2,8) 

m 

-2*Tl**3/3  +  T1**2*Y  -  Y**3/3. 

PMAT(2,21) 

m 

1.0 

PMAT<2,23) 

m 

T1+T2  -  Y 

PMAT(2,15) 

m 

-T1*T2-0.5*T2**2  +  T2*Y 

PMAT{2,18) 

m 

T1*T2**2+T2**3/3.  -  T2**2*Y 

PHAT{2,9) 

m 

-T1**2*X  +  2*T1*X*Y  -  X*Y**2 

PMAT(2,22) 

m 

X 

PHAT(2,24) 

m 

2*(T1+T2)*X  -  2*X*Y 

PMAT(2,19) 

m 

-(2*T1*T2+T2**2) *X  +  2*T2*X*Y 

PMAT(2,26) 

m 

3* (T1+T2) *X**2  -  3*Y*X**2 

PMAT(2,25) 

m 

X**2 

PMAT(2,27) 

m 

X**3 

PRAT (3, 2) 

m 

T1  -  Y 

PMAT(3,4) 

m 

0.5*T1**2  -  0.5*Y**2 

PMAT(3,7) 

m 

-Tl**3  +  Y**3 

PMAT(3,28) 

m 

1.0 

PHAT(3,12) 

m 

T2 

PKAT<3,14) 

m 

-0.5*T2**2 

PMAT{3,17) 

m 

-T2**3 

PMAT<3,S) 

m 

-T1*X  +  X*Y 

PMAT<3,8) 

m 

-T1**2*X  +  X*Y**2 

PMAT(3,23) 

m 

X 

PNAT(3,15) 

m 

-T2*X 

PMA.7(3,I6) 

m 

T2**2’*X 

PMAT{3,9) 

-T1*X**2  +  Y*X**2 

PMAT(3,24) 

m 

X**2 

PRAT (3, 19) 

m 

-T2*X**2 

PRAT (3, 26) 

m 

X**3 

ELSE  IF  (  LAYER 

.EQ.  2  )  THEN 

PRAT (1,11) 

m 

1.0 

PRAT (1,12) 

m 

X 

PRAT (1,13) 

m 

Y 

PRAT(1,14) 

m 

X*Y 

PRAT (1,15) 

m 

-0.5*X**2 

PRATd  16) 

m 

Y**2 

PRAT (1,17) 

m 

-3*X*Y**2 

PRAT (1,18) 

m 

-Y*X**2 

PRAT (1,19) 

m 

-X**3/3. 

PRAT (1,20) 

m 

Y**3 

PRAT(2,21) 

m 

1.0 

PRAT (2, 22) 

m 

X 

PRAT (2, 23) 

m 

-Y 

PRAT (2, 24) 

m 

-2*X*Y 

PRAT (2, 25) 

m 

X**2 

PRAT (2, 15) 

m 

-0.5*y*’*2 

PRAT (2, 19) 

m 

-X*Y**2 

PRAT (2, 26) 

m 

-3*Y*X**2 

PRAT (2, 27) 

m 

X**3 

PRAT (2, 18) 

m 

-Y**3/3. 
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PMAT(3,28)  -  1.0 

PMAT{3,23)  -  X 
PMM;(3,12)  -  -Y 
PMAT(3,15)  -  X*Y 
PMAT(3,24)  -  X**2 

PM&T(3,14)  -  -0.5*Y**2 
PMAT<3,18)  -  X*Y**2 

PMAT<3,19)  -  Y*X**2 

PMAT(3,26)  -  X**3 

PMAT(3,17)  -  Y**3 

ELSE  IF  (  LAYER  .EQ.  3  )  THEN 

PMAT(1,29)  «  1.0 

PMAT(1,30)  -  X 
PHAT(1,31)  -  Y 
PMAT(1,32)  -  X*Y 
PMAT(1,33)  -  -0.5*X**2 
PMAT(1,34)  -  Y**2 

PMAT(1,35)  -  -3*X*Y**2 

PMAT(1,36)  -  -Y*X**2 

PMAT(l,37)  -  -X**3/3. 

PMAT(1,38)  -  Y**3 

PMAT(2,23)  -  -Y  -  (T2+T3) 

PMAT<2,15)  -  -{T2*T340.5*T2**2)  -  T2*Y 

PMAT<2,18)  -  -(T3*T2**2+T2**3/3.)  -  T2**2*Y 

PMAT(2,33)  -  -0.5*T3**2  -  T3*Y  -  0.5*Y**2 

PMAT(2,36)  -  2*T3**3/3.  +  T3**2*Y  -  Y**3/3. 

PMAT(2,21)  -  1.0 

PMAT(2,24)  -  -2*(T2+T3)*X  -  2*X’»Y 

PMAT{2,19)  -  -2*(T2*T3+0.5*T2**2) *X  -  2*T2*X*Y 

PMAT{2,37)  -  <T3**2-2*T2*T3) *X  -  2*T2*X*Y  -  X*Y* 

PMAT(2,22)  -  X 

PMAT(2,25)  -  X**2 

PMAT{2,26)  -  -3*(T2+T3)*X**2  -  3*Y*X**2 

PMAT(2,27)  -  X**3 

PMAT(3,12)  -  -T2 

PI«AT(3,14>  «  -0.5*T2**2 

PMAT(3,17)  -  T2**3 

PHAT(3,28)  «  1.0 

PMAT(3,30)  -  -T3  -  Y 

PMAT(3,32)  -  0.5*T3**2  -  0.5*Y**'2 

PMAT(3,35)  -  T3’*’*3  +  Y**3 

PMAT{3,23)  -  X 

PMAT{3,15)  -  T2*X 

PMAT(3,18)  -  T2**2*X 

PMAT(3,33)  -  T3*X  +  X*Y 

PMAT{3,36)  -  -T3**2*X  +  X*Y**2 

PMAT(3,24)  -  X**2 

PMAT(3,19)  -  T2*X**2 

PMAT(3,37)  -  T3*X**2  +  y*X**2 

PMAT(3,26)  -  X**3 

END  IF 

ELSE  IF  (  NVER  .EQ.  13  .AND.  NSIOE  .EQ.  1  )  THEN 

ZEIU>  TRACTION  CONDITION  OF  SXX  AND  TXY 

IMPOSED  ON  ELEMENT  SIDE  FI 

M8VAL  -  21 

IF  (  LAYER  .EQ.  1  )  THEN 

PMAT(1,1)  -  1.0 

PMAT(1,2)  -  -X 

PMAT(1,3)  •  Y 

PMAT(1,4)  “  -2*X*Y 
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PMAT(1,5) 

« 

-X**2 

PMATd,  6) 

m 

Y**2 

PMAT(2,5) 

m 

-0.5*T1**2  +  Y*T1 

PNAT(2,7) 

m 

-(T1+T2) 

+  Y 

PMAT(2,8) 

- 

1.0 

PMAT(2,9) 

m 

~T1*T2  + 

Y*T2 

PMAT{2,10) 

* 

2*X*T1  -  2*X*Y 

PMAT(2,11) 

m 

X 

PMAT(2,12) 

m 

-X*T2 

PNAT(2,13) 

- 

X**2 

PMAT(3,2) 

m 

-Tl  +  Y 

PMAT(3,4) 

-11**2  + 

Y**2 

PMAT(3,7) 

• 

-A  -  X 

PMAT(3,10) 

• 

-A* *2  + 

X**2 

PMAT(3,9) 

m 

-T2*A  - 

X*T2 

PMAT(3,S) 

• 

-X*T1  + 

X*Y 

-  0.5*Y**2 


ELSE  ZF  (  LAYER  .EQ.  2  )  THEN 


PMATd,  9) 

-  -A*{X+A) 

PMATd,  14) 

-  {X**2-A**2) 

PMATd,  15) 

-  Y* (X+A) 

PMAT(2,8) 

-  1.0 

PMAT(2,11) 

-  X 

PMAT(2,7) 

-  Y 

PMAT(2,12) 

-  X*Y 

PMAT(2,13) 

-  X**2 

PMAT(3,7) 

-  -(X+A) 

PMAT(3,10) 

-  (X**2-A**2) 

PMAT(3,  9) 

-  Y* (X+A) 

ELSE  IF  (  LAYER  .EQ.  3  )  THEN 

PMATd,  16) 

•  1.0 

PMATd,  17) 

-  -X 

PMATd,  18) 

-  Y 

PMAT'd,  19) 

.  -X*Y 

PMATd,  20) 

•  -0.5*X**2 

PMATd,  21) 

-  Y**2 

PMAT(2,20) 

-  -0.5*T3**2  - 

PMAT(2,7) 

-  (T2+T3)  +  Y 

PMAT(2,8) 

■  1.0 

PMAT<2,9) 

-  -T2*T3  -  T2*Y 

PMAT<2,10) 

-  -2*T3*X  -  2*X*' 

PMAT(2,11) 

«  X 

PMAT<2,12) 

-  T2*X 

PMAT(2,13) 

-  X**2 

PMAT<3,17) 

-  T3  +  Y 

PMAT(3,19) 

-  -T3**2  +  Y**2 

PMAT(3,7) 

-  -A  -  X 

PMAT(3,10) 

-  -A**2  +  X**2 

PMAT(3,9) 

-  T2*A  +  T2*X 

PMAT(3,20) 

-  T3*X  +  X*Y 

-  0.5*Y**2 


END  IF 

ELSE  ZF  (  NVER  .EQ.  13  .AND.  NSZDE  .EQ.  2  )  THEN 

ZERO  TRACTION  CONDITION  OF  SXX  AND  TXY 
IMPOSED  ON  FACE  F2 

NBVAL  -  21 

IF  {  LAYER  .EQ.  1  )  THEN 


PMAT(1,1) 

PMAT(1,2) 

PMAT<1,3) 
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1/  I  /I 

9 - 10  ( 

II  II 

I  8 - 1—7 

I  /I  I  /I 

1/  I  1/1 

5 - 6  I  • 

II  II 

1  4 - 1  —3 

I  /  I  / 

1/  1/ 


T1  -  THK(l)/2. 
T2  -  THK(2) /2. 


IF  {  NVER  .EQ.  11  )  THEN 
TRI LINEAR  STRESS  FIELD 


C 

C 


NBVAL  -  48 

IF  (  LAYER  .EQ.  1  )  THEN 


PMATd,  1) 

m 

1.0 

PMAT(1,2) 

- 

-X 

PMAT(1,3) 

« 

-X 

PMAT(1,4> 

m 

Y 

PMAT(1,5) 

m 

Z 

PMAT{1,6) 

m 

-X*Y 

PMAT<1,7) 

« 

-x*z 

PMAT(1,8) 

m 

Z*Y 

PMAT<2,9) 

1.0 

PMAT(2,10) 

■i 

X 

PMAT<2,11) 

Y 

PHAT(2,12) 

m 

Z 

PMAT<2,13) 

■ 

X*Y 

PMAT(2, 14) 

x*z 

PMAT(2,15) 

■ 

-Z*Y 

PMAT(3,1€) 

ai 

T1+T2  -* 

PMAT{3,17) 

* 

T1+T2  - 

PMAT(3,18) 

m 

1.0 

PMAT(3,19) 

m 

(T1+T2) 

PMAT(3,20) 

« 

X 

PMAT(3,21) 

- 

(T1+T2) 

PMAT(3,22) 

■ 

Y 

PMAT(3,23) 

X*Y 

PMAT(4,25) 

- 

+ 

1 

PMAT(4,27) 

« 

1.0 

PMAT(4,28) 

- 

-T2 

PMAT(4,13) 

m 

Ti*x  -  : 

PMAT(4,29) 

- 

X 

PMAT<4,30) 

m 

T2*X 

PMAT(4,17) 

m 

Y 

PMAT(4, 19) 

» 

X*Y 

PMAT(5,3) 

m 

-T1  +  Z 

PMAT<5,31) 

m 

1.0 

PMAT{5,32) 

* 

-T2 

PHAT<S,  16) 

ai 

X 

PMAT(5,6) 

m 

-Tl*Y  +  : 

PMAT(5,33) 

» 

Y 

PMAT(5,34) 

m 

-T2*Y 

PMAT(5,21) 

m 

X*Y 

PMAT<6,24) 

m 

1.0 

PMAT(6, 11) 

» 

-X 

PMAT(6,25) 

m 

-X 

PMAT(6,2) 

Y 
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c 

c 


c 

c 


PMAT<fi,26)  *  Z 
PMAT<6,15)  -  X*Z 
PMAT(6,7)  -  Z*Y 

ELSE  IF  (  LAYER  .EQ.  2  )  THEN 

PMAT{1,35)  -  1.0 

PMAT{1,36)  -  -X 
PMAT(1,32)  -  -X 
PMAT(1,37)  -  Y 
PMAT(1,38)  -  Z 
PMAT(1,34>  -  -X*Y 
PMAT(1,39)  -  -X*Z 
PMAT{1,40)  -  Y*2 

PMAT(2,41)  •>  1.0 

PHAT(2,42)  -  X 
PMAT(2,47)  -  Y 
PMAT(2,43)  -  Z 
PMAT(2,30)  -  X*Y 
PMAT(2,44)  -  X*Z 
PMAT(2,45)  -  -2*Y 
PMAT(3,18)  -  1.0 

PMAT{3,20)  -  X 
PMAT(3,22)  «  Y 
PMAT(3,16)  -  -Z 
PMAT(3,17)  -  -Z 
PMAT(3,23)  -  X*Y 
PMAT(3,19)  -  -X*Z 
PMAT(3,21)  -  -Z*Y 
PMAT(4,27)  -  1.0 

PMAT(4,29)  -  X 
PMAT(4,17)  -  Y 
PMAT(4,28)  -  Z 
PMAT(4,19)  -  X*Y 
PMAT (4, 30)  -  -X*Z 
PMAT(5,31)  -  1.0 

PMAT(5,16)  -  X 
PMAT(5,33)  -  Y 
PNAT(5,32)  -  Z 
PMAT(5,21)  •  X*Y 
PHAT(5,34)  -  Y*Z 
PMAT(€,46)  «  1.0 

PMAT(6,47)  -  -X 
PMAT(6,28)  -  -X 
PMAT<6,36)  -  Y 
PMAT(6,48)  -  Z 
PMAT(6,45)  -  X*Z 
PMAT<6,39)  -  Z*Y 

END  IF 

ELSE  IF  (  NVER  .EQ.  12  )  THEN 


QUADRATIC  STRESS  FIELD 


NBVAL  «  78 

IF  (  LAYER  .EQ.  1  )  THEN 

PMAT(1,1>  -  Y*Z 

PMAT(1,2)  -  X*Z 

PMAT(1,3)  -  Z 

PMAT(1,4)  -  Y*^2 

PMAT(1,5)  -  X**2 

PMAT(l,6)  -  X^Y 
PMAT(1,7)  -  Y 

PMAT{1,8)  -  X 

PMAT(1,9)  -  Z**2 
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PMATd.lO)  - 
PMAT{2,11)  - 
PMAT(2,12)  - 
PMAT{2,13)  - 
PMAT(2,14) 
PM1VT(2,15) 
PHA7(2,16> 
PMM:(2,17) 
PMAT(2,18) 
PMAT{2,19) 
PMAT(2,20) 
PMAT(3,21) 
PMAT(3,22) 
PMAT(3,23) 
PMAT<3,24) 
PMAT(3,25) 
PMAT(3,26) 
PMAT(3,27) 
PMAT(3,28) 
PMAT(3,29) 
PMAT(3,30) 
PMAT<3,31) 
PMAT(4,21) 
PMAT(4,23) 
PMAT(4,24) 
PMAT(4,14) 
PMAT(4,34) 
PMAT(4,16) 
PMAT(4,17) 
PMAT(4,41) 
PMAT(4r42) 
PMAT(4,36) 
PMA7(4,43) 
PMA.T(4,31> 
PMA7(4,39) 
PMAT(4,5) 
PMAT(4,44) 
PMAT(4,4S) 
PMA7(4,46) 
PMAT(S,22) 
PMAT(5,33) 
PMAT(5,14) 
P»ttT(5,47) 
PMAT(5,35) 
PMA‘r(S,41) 
PMAT(5,48) 
PNAT(S,38) 
PMAT(5,5) 
PHAT(5,€) 
PHAT<5,21) 
PMAT(5,8) 
PMAT(5,49) 
PHAT(5,44} 
PMAT(5,45) 
PMAT(6,2) 
PMAKfi,!!) 
PMAT<6,32) 
PMA7<6,33) 
PMAT(6,14) 
PMAT{6,34) 
PMAT(6,35) 
PMAT(6,36)  » 
PMAT(6,37)  - 
PMAT(6,38)  * 
PMXT(6,39)  - 
PMAT(6,5)  - 

PMAT(S,40)  - 
PMAT(6,21)  - 


1.0 

Y*Z 

X*Z 

Z 

Y**2 

X**2 

X*Y 

Y 
X 

1.0 

Z**2 

Z**2-2*Z*T1 

Y*Z 

X*Z 

Z 

Y**2 

X**2 

X*Y 

Y 
X 

1.0 

-2*Z*T2 

2*Y*T1-Y*Z 

-X*Y 

-Y 

-Y*Z 

-2*X*Z 

-X*Z 

-Z 

-Y 

X 

-Z 

1.0 

2*Y*T2 

Z**2 

Y*Z 

Y**2 

-2*X*Y 

X**2 

-X*Y 

-2*Y*Z 

x*z 

Y 
-2 

X 

1.0 

Z**2 

-X*Z 

-Y*Z 

-X*Z 

-Z 

Y**2 

-2*X*Y 

X**2 

-Y*Z 

-X*Z 

Z 

Y**2 

-X*Y 

X**2 

Y 
X 

1.0 

-.2*Y*Z 

-2*X*Z 

-X*Y 

Z**2 

X*Y 
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ELSE  IF  {  LAYER  .EQ.  2  )  THEM 

PMAT(1,50) 

.  Y*Z 

PMA7(1,51) 

-  X*Z 

PMAT{1,52) 

-  Z 

PMA7(1,53) 

-  -2*X*Y 

PMAT(1,54) 

-  Y**2 

PMAT(1,55) 

-  X**2 

PMAT(1,56) 

-  Y 

PMAT(1,57) 

-  X 

PNAT(1,58) 

-  1.0 

PMAT<1,S9) 

-  Z**2 

PMAT(1,$0) 

-  -X*Y 

PMAT(2,61) 

-  Y*Z 

PMAT(2,62) 

-  X*Z 

PMAT(2,€3) 

-  Z 

PMAT(2,64) 

-  Y**2 

PMAT(2,65) 

-  X**2 

PMAT(2,66) 

-  X*Y 

PMAT(2,67) 

-  Y 

PMAT(2,68) 

-  X 

PMAT(2,69) 

-  1.0 

PMAT(2,70) 

-  2**2 

PMAT(3«31) 

-  {-T2**2+Z**2-2*T1*T2) 

PMAT(3,22) 

-  (Y*(T2+T1)+Y*2> 

PMAT<3,23) 

-  {X*(T2+T1)+X*Z> 

PMAT{3,24) 

-  (T2+T1+Z) 

PMAT<3,25) 

-  Y**2 

PMAT(3,26) 

-  X**2 

PMAT(3,27) 

-  X*Y 

PMAT(3,28> 

-  Y 

PMAT(3,29) 

-  X 

PMAT(3,30> 

-  1.0 

PMAT<3,22) 

•  -Tl**2 

PMAT(4,77) 

-  (Z**2-T2**2) 

PMAT(4,55) 

-  (Y*Z+T2*Y) 

PMAT(4,67) 

-  (-T2-Z) 

PMAT(4,31) 

«  (T2*Y-Y*Z) 

PMAT(4,64) 

-  (-Y*2-T2*Y) 

PMAT<4,66) 

-  (-X*Z-T2*X) 

PMAT(4,73) 

-  (-T2-Z) 

PMAT(4,72) 

-  (-2*X*Z-2*T2*X) 

PMA7(4,23) 

-  -X*Y 

PMAT(4,24) 

-  -Y 

PMAT(4,14) 

-  -T1*Y 

PMAT(4,34) 

-  -2*T1*X 

PMAT(4,16) 

-  -T1*X 

PKAT(4,17) 

-  -T1 

PMAT(4,41) 

-  -Y 

PMAT(4,42} 

-  X 

PMAT(4,3€) 

-  -T1 

PMAT(4,43) 

-  1.0 

PMAT<4,39) 

-  Tl**2 

PMAT(4,5) 

-  T1*Y 

PMAT(4,21) 

-  T1*Y 

PMAT(4,44) 

-  Y**2 

PMAT(4,4S) 

-  -2*X*Y 

PMAT<4,46) 

-  X**2 

PMAT(5,76) 

-  (Z**2-T2**2) 

PHAT<5,60) 

-  (Y*Z+T2*Y) 

PMAT<5,64) 

-  (X*Z+T2*X) 

PMAT(S,55) 

-  (-X*Z-T2*X) 

PHAT(5,31) 

-  (-X*Z-T2*X) 

PMAT(5,75) 

«  (T2+Z) 

PI4AT(5,22) 

-  -X*Y 

PMAT(5,33) 

-  -2*T1*Y 

PMAT(5,14) 

-  T1*X 
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PMAT{5,47) 

» 

Y 

PMAT(5,35) 

m 

-T1 

PMAT(S,41) 

m 

X 

PMAT(5,48) 

m 

1.0 

PMAT(5,38) 

■ 

Tl**2 

PMAT(5,5) 

-T1*X 

PMAT(S,6) 

■ 

-T1*Y 

PMAT(5,21} 

« 

-T1*X 

PMAT(5,8) 

m 

-T1 

PMAT(5,49) 

m 

Y**2 

PMAT(5,44) 

m 

-2*X*Y 

PMAT<5,45) 

m 

X**2 

PMAT(6,€1) 

- 

-x*z 

PMAT(€,S1) 

- 

-Y*Z 

PMAT<6,71) 

Z 

PMAT(6,53) 

Y**2 

PMAT(6,€4) 

• 

-X*Y 

PMAT(6,72) 

• 

X**2 

PMAT(6,55) 

- 

-X*Y 

PMAT(6,73) 

* 

X 

PMAT(6,57) 

■ 

-Y 

PMAT{6,74) 

m 

1.0  . 

PMAT(6,31) 

» 

X*Y 

PMAT(6,75) 

m 

-Y 

PMAT(6,76) 

-2*Y*Z 

PMAT(6,77) 

- 

-2*X*Z 

PHAT(€,78) 

m 

Z**2 

C 

C 


END  IF 

END  IF 

RETURN 

END 


SUBROUTINE  lOPNTS ( lET , NTPS , JTYPE , HELD IM, NORD , LAYER, 

1  XSI,ETA,CEE  ) 

IMPLICIT  RBAL*8(A-H,0-Z) 

IN  FIRST  PASS  SET  NUMBER  OF  OUTPUT  POINTS 

IF  <  lET  .EQ.  0  )  THEN 

IF  <  JTYPE  .NE.  5  )  NTPS  -  9 
IF  (  JTYPE  ,EQ.  5  )  NTPS  -  17 

RETURN 

END  IF 

SELECT  SPECIFIC  OUTPUT  POINTS  AT  ELEMENT 
CORNERS  AND  AT  GAUSS  (N-2)  POINTS 

IF  (  JTYPE  .NE.  5  )  THEN 

2->D  ADHESIVE  ELEMENTS 

IF  (  lET  .EQ.  1  )  THEN 

XSI  -  -1.0 
ETA  -  -1.0 

ELSE  IF  (  lET  .EQ.  2  )  THEN 
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c 

XSI  -  -1.0 
ETA  -  1.0 

C 

ELSE  IF  <  ZET  .EQ.  3  )  THEN 
C 

XSI  -  1.0 

ETA  -  -1.0 
C 

ELSE  IF  (  lET  .EQ.  4  )  THEN 
C 

XSI  -  1,0 

ETA  -  1.0 

C 

ELSE  IF  (  lET  .EQ.  5  )  THEN 
C 

XSI  -  0.0 

ETA  -  0.0 

C 

ELSE  IF  (  lET  .EQ.  6  )  THEN 
C 

XSI  -  -0.577350269189626 
ETA  -  -0.577350269189626 
C 

ELSE  IF  (  lET  .EQ.  7  )  THEN 
C 

XSI  -  0.577350269189626 

ETA  -  -0.577350269189626 
C 

ELSE  IF  (  lET  .EQ.  8  )  THEN 
C 

XSI  -  -0.577350269169626 
ETA  -  0.577350269189626 

C 

ELSE  IF  (  lET  .EQ.  9  )  THEN 
C 

XSI  -  0.577350269189626 

ETA  -  0.577350269189626 

C 

END  IF 
C 

ELSE  IF  (  JTYPE  .EQ.  5  }  THEN 
3-D  ADHESIVE  ELEMENT 


C 

C 

C 

C 

C 

C 

C 


IF  (  lET  ,EQ. 

XSI  -  -1.0 
ETA  -  -1.0 
CEE  -  -1,0 

ELSE  IF  (  lET 

XSI  -  -1.0 
ETA  -  -1.0 
CEE  -  1.0 

ELSE  IF  (  lET 

XSI  -  -1.0 
ETA  «  1,0 
CEB  »  -1.0 

ELSE  IF  (  lET 

XSI  -  -1,0 
ETA  -  1,0 
CEE  -  1.0 


1  )  THEN 


.EQ.  2  )  THEN 


.EQ.  3  )  THEN 


.EQ.  4  )  THEN 
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C 

r 

« 

c 

ELSE  IF 

(  lET  .EQ.  5  )  THEN 

XSl  - 

1.0 

ETA  » 

-1.0 

CEE  - 

-1.0 

c 

ELSE  IF 

(  lET  .EQ.  6  )  THEN 

c 

XSI  - 

1.0 

ETA  - 

-1.0 

CEE  - 

1.0 

c 

ELSE  IF 

(  lET  .EQ.  7  )  THEN 

• 

c 

XSI  - 

1.0 

ETA  - 

1.0 

CEE 

-1.0 

m 

c 

ELSE  IF 

(  lET  .EQ.  8  )  THEN 

c 

• 

XSI  - 

1.0 

■ 

ETA  - 

1.0 

CEE  - 

1.0 

. 

c 

ELSE  IF 

(  lET  .EQ.  9  )  THEN 

c 

XSI  - 

0.0 

ETA  - 

0.0 

CEE  - 

0.0 

c 

ELSE  IF 

(  lET  .EQ.  10  )  THEN 

r 

c 

XSI  - 

-0.577350269189626 

ETA  * 

-0.577350269189626 

CEE  « 

-0.577350269189626 

c 

Else  if 

(  lET  .EQ.  11  )  THEN 

c 

XSI  - 

0.577350269189626 

• 

ETA  - 

-0.577350269189626 

CEE  - 

-0.577350269189626 

c 

^LSE  IF 

(  lET  .EQ.  12  )  THEN 

c 

XSI  - 

-0.577350269189626 

ETA  - 

0.577350269189626 

# 

c 

CEE  - 

-0.577350269189626 

ELSE  IF 

(  lET  .EQ.  13  )  THEN 

c 

** 

XSI  - 

0.577350269189626 

ETA  - 

0.577350269189626 

CEE  - 

-0.577350269189626 

c 

ELSE  IF 

(  lET  .EQ.  14  )  THEN 

c 

XSI  - 

-0.577350269189626 

ETA  - 

-0.577350269189626 

CEE  - 

0.577350269189626 

c 

ELSE  IF 

<  IBT  .EQ.  IS  )  THEN 

c 

XSI  - 

0.577350269189626 

ETA  - 

-0.577350269189626 

CEE  - 

0.577350269189626 

h 

c 

ELSE  IF 

(  lET  .EQ.  16  )  THEN 

L 
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c 

XSI  -  -0.577350269189626 
ETA  -  0.577350269189626 

CEE  -  0.577350269189626 

C 

ELSE  IF  {  ZET  .EQ.  17  )  THEN 
C 

XSI  ->  0.577350269189626 

ETA  -  0.577350269189626 

CEE  •  0.577350269189626 

C 

END  IF 
C 

END  IF 
C 

RETURN 

END 

C 

C 

C 

SUBROUTINE  INVERS (A, B, INDEX, NDIM, NFT) 

C 

T.  ELICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C 

DIMENSION  A  (NDIM,  NDIM) ,  B  (NDIM,  NDIM) ,  INDEX  (NDIM) 
C 

DO  12  I  -  I,  NFT 
DO  11  J  -  1,  NFT 
B(I,J)  -  0.0 

11  CONTINUE 
B(I,I)  -  1.0 

12  ccmimm 

CALL  Un>CMP  (A,  NFT, NDIM,  INDEX,  D) 

DO  13  J  -  1,  NFT 

CALL  LUBKSB (A, NFT, NDIM, INDEX, B ( 1, J) ) 

13  ccairiNUE 
C 

RETURN 

END 

C 

C 

C 

SUBROUTINE  LUDCMP  (A,N,NP,  INDX,D) 

C 

IMPLICIT  DOUBl£  PRECISION  (A-H,0-Z) 

C 

PARAMETER  (NMAX-100,TINY-1.0E-20) 

DIMENSICXf  A(NP,NP),INDX(NP),W(NMAX) 

D*!. 

DO  12  I-1,N 
AAMAX-0. 

DO  11  J-l,N 

IF  (ABS(A(I,J)) .GT.AAHAX)  AAMAX-ABS (A(I, J) ) 

11  continue 

IF  (AAMAX.EQ.O.)  PAUSE  'Singular  matrix.' 
W(I)«1./AAMAX 

12  CCBITIMUE 
DO  19  J-1,N 

IF  (J.GT.l)  THEN 
DO  14  1-1, J-1 
SUM-A(I,  J) 

IF  (I.GT.IJTHEN 
DO  13  K-1,I-1 

SUM-SUM-A ( I , K) *A (K, 

13  CONTINUE 
A(1,J)-SUM 

ENDIF 

14  CONTINUE 
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BMDZF 

AAMAX-0. 

DO  16  I-J,N 
SUM-A(Z,  J) 

IF  (J.GT.l)THEN 
DO  15  K-1,J-1 

SDM-SUM-A  < I , K) *A (K, J) 

15  CONTINUE 
A(I,J) -SUM 

ENDIF 

DOM-W(I)  *ABS  (SUM) 

IF  (DUM.GE.AAMAX)  THEN 
IMAX-I 
AAMAX-DUM 
ENDIF 

16  CONTINUE 

IF  {J.NE.IMAX)THEN 
DO  17  K-1,N 
DUM-A(IMAX,K) 

A(IMAX, K)«A(J,K) 

A<J,R)-OUM 

17  CONTINUE 
D— D 

W(IMAX)-W<J) 

ENDIF 

INDX(J)-ZMAX 

IF(J.NE.N>TREN 

IF<A(J,J) .EQ.0.)A(J, J)-TINY 
DOT<-1./A(J,  J) 

DO  18  I-J-«-l,N 

A{I,J)-A(I,J)  *DUM 

18  CONTINUE 
ENDIF 

19  CCMTINUE 

IF(A(N,N)  .EQ.O.)A(N,N)-TINY 
RETURN 
END 
C 
C 
C 

SUBROUTINE  LUBKSB(A,N,NP, INDX,B) 

C 

IlfflrlCIT  DOUBLE  PRECISION  <A-H,0-Z) 
C 

DIMENSION  A(NP,NP) ,  INDX(NF)  ,B(N) 
Il-O 

DO  12  Z-1,N 
LL-INDX(I) 

Stm-B(LL) 

B(LL)-B(I) 

IF  (II.MB.O)THEN 
DO  11  J-II,1-1 

SUM-SUM»A(Z, J) •B(J) 

11  CONTINUE 

ELSE  IF  (SUM.NE.O.)  THEN 
II-I 
ENDIF 
B(I)-SUM 

12  OMTINUE 

DO  14  I-N,l,-1 
SlBi-B(I) 

IF(I.LT.N)THEM 
DO  13^  J-I+1,N 

SOM-SUM-A (I,  J)  *B  ( J) 

13  C(»n'INUE 
ENDIF 

B(I)-SUM/A<I,I) 

14  CXBiTINUB 
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RETURN 

END 


SUBROUTINE  GAUSS (NORD, NELDIM,  IXSI, JETA, KCEE, XSI,  ETA, CEE, WEIGHT) 
IMPLICIT  DOUBLE  PRECISION  (A~H,0-Z) 

RETURN  GAUSS  POINTS  AMD  HEIGHTS  FOR  NUMERICAL  QUADRATURE 
IF  (  NELDIM  .EQ.  2  )  THEN 

CEB  -  1.0 

IF  (  NORD  .EQ.  1  )  THEN 

XSI  »  0.0 
ETA  -  0.0 
WEIGHT  »  4.0 

ELSE  IF  (  NORD  .EQ.  2  )  THEN 

WEIGHT  -  1.000 

XSI  -  0.577350269189626 

ETA  -  0.577350269189626 

IF  (  IXSI  .EQ.  2  )  XSI  -  -.577350269189626 
IF  (  JETA  .EQ.  2  )  ETA  -  -.577350269189626 

ELSE  IF  (  NORD  .EQ.  3  )  THEN 

IF  (  IXSI  .EQ.  1  )  THEN 

XSI  >■  0.774596669241483 
WX  -  0.555555555555556 
ELSE  IF  <  IXSI  .EQ.  2  )  THEN 
XSI  -  0.000000000000000 
WX  -  0.888888888888889 
ELSE  IF  (  IXSI  .EQ.  3  )  THEN 
XSI  -  -.774596669241483 
WX  -  0.555555555555556 
END  IF 

IF  '(  JETA  .EQ.  1  )  THEM 

ETA  -  0.774596669241483 
WE  -  0.555555555555556 
ELSE  IF  (  JETA  .EQ.  2  )  THEN 
ETA  -  0.000000000000000 
WE  -  0.888888888888889 
ELSE  IF  (  JETA  .EQ.  3  )  THEN 
ETA  -  -.774596669241483 
HE  -  0.555555555555556 
END  IF 

WEIGHT  -  WX*WE 

ELSE  IF  (  NORD  .EQ.  4  )  THEN 

IF  (  IXSI  .EQ.  1  )  THEM 

XSI  -  0.861136311594053 
WX  -  0.347854845137454 
ELSE  IF  (  IXSI  .EQ.  2  )  THEN 
XSI  -  0.339981043584856 
NX  «  0.652145154862546 
ELSE  IF  (  IXSI  .EQ.  3  )  THEN 
XSI  -  -.339981043584856 
WX  -  0.652145154862546 
ELSE  IF  (  IXSI  .EQ.  4  )  THEN 
XSI  -  -.861136311594053 
WX  -  0.347854845137454 
END  IF 

IF  (  JETA  .EQ.  1  )  THEN 
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ETA  -  0.861136311594053 
WE  -  0.347854845137454 
ELSE  IF  (  JETA  .EQ.  2  )  THEN 
ETA  -  0.339981043584856 
WE  «  0.652145154862546 
ELSE  IF  (  JETA  .EQ.  3  >  THEN 
ETA  <-  -.339981043584856 
WE  -  0.652145154862546 
ELSE  IF  (  JETA  .EQ.  4  )  THEN 
ETA  -  -.861136311594053 
WE  0.347854845137454 
END  IF 

WEIGHT  -  WX*WE 

ELSE  IF  (  NORD  .EQ.  5  )  THEN 

IF  (  IXSI  .EQ.  1  )  THEN 

XSI  -  0.906179845938664 
WX  -  0.236926885056189 
ELSE  IF  (  IXSI  .EQ.  2  )  THEN 
XSI  -  0.538469310105683 
WX  -  0.478628670499366 
ELSE  IF  <  IXSI  .EQ.  3  )  THEN 
XSI  -  0.000000000000000 
NX  •*  0.568888888888889 
ELSE  IF  (  IXSI  .EQ.  4  )  THEN 
XSI  -  -.538469310105683 
NX  -  0.478628670499366 
ELSE  IF  (  IXSI  .EQ.  5  )  THEN 
XSI  «  -.906179845938664 
WX  -  0.236926885056189 
END  IF 

IF  (  JETA  jEQ.  1  )  THEN 

ETA  -  0.906179845938664 
WE  -  0.236926885056189 
ELSE  IF  (  JETA  .EQ.  2  )  THEN 
ETA  -  0.538469310105683 
WE  «  0.478628670499366 
ELSE  IF  (  JETA  .EQ.  3  )  THEN 
ETA  -  0.000000000000000 
WE  -  0.568888888888889 
ELSE  IF  (  JETA  .EQ.  4  )  THEN 
ETA  -  -.538469310105683 
WE  -  0.478628670499366 
ELSE  IF  (  JETA  .EQ.  5  )  THEN 
ETA  -  -.906179845938664 
WE  -  0.236926885056189 
END  IF 

WEIGHT  *•  WX*WE 
END  IF 

ELSE  IF  (  NELDIM  .EQ.  3  )  THEN 

IF  (  WORD  .EQ.  1  )  THEN 

XSI  ->  0.0 
ETA  -  0.0 
CEE  -  0.0 
WEIGHT  -8.0 

.  ELSE  IF  (  NORD  .EQ.  2  )  THEN 

WEIGHT  ->  1.000 
XSI  -  0.577350269189626 
ETA  -  0.577350269189626 
CEE  -  0.577350269189626 

IF  (  IXSI  .EQ.  2  )  XSI  -  -.577350269189626 
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c 


IF  (  JETA  .EQ.  2  )  ETA  -  -.577350269189626 
IF  (  KCEE  .EQ.  2  I  CEE  -  -.577350269189626 

EIiSE  if  <  NORD  .EQ.  3  )  THEN 


C 

C 


IF  (  IXSI  .EQ.  1  )  THEN 

XSI  -  0.774596669241483 
NX  -  0.555555555555556 
ELSE  IF  (  IXSI  .EQ.  2  )  THEN 
XSI  -  0.000000000000000 
NX  -  0.888888888888889 
ELSE  IF  <  IXSI  .EQ.  3  )  THEN 
XSI  -  -.774596669241483 
NX  «■  0.555555555555556 
END  IF 

IF  <  JETA  .EQ.  1  )  THEN 

ETA  -  0.774596669241483 
WE  -  0.555555555555556 
ELSE  IF  (  JETA  .EQ.  2  )  THEN 
ETA  -  0.000000000000000 
NB  -  0.888888888888889 
ELSE  IF  (  JETA  .EQ.  3  )  THEN 
ETA  -  -.774596669241483 
NE  -  0.555555555555556 
END  IF 

IF  (  KCEE  .EQ.  1  )  THEN 

CEE  -  0.774596669241483 
WC  -  0.555555555555556 
ELSE  IF  (  KCEE  .EQ.  2  )  THEN 
CEE  «  0.000000000000000 
NC  -  0.888888888888889 
ELSE  IF  (  KCEE  .EQ.  3  )  THEN 
•  CEB  -  -.774596669241483 
WC  -  0.555555555555556 
END  IF 

WEIGHT  -  WX*WE*WC 

ELSE  IF  (  NORD  .EQ.  4  )  THEN 

IF  (  IXSI  .EQ.  1  )  THEN 

XSI  -  0.861136311594053 
WX  -  0.347854845137454 
ELSE  IF  (  IXSI  .EQ.  2  )  THEN 
XSI  -  0.339981043584856 
WX  *•  0.652145154862546 
ELSE  IF  (  IXSI  .EQ.  3  )  THEN 
XSI  «  -.339981043584856 
WX  -  0.652145154862546 
ELSE  IF  <  IXSI  .EQ.  4  )  THEN 
XSI  -  -.861136311594053 
WX  -  0.347854845137454 
END  IF 

IF  (  JETA  .EQ.  1  )  THEN 

ETA  -  0.861136311594053 
WE  «  0.347854845137454 
ELSE  IF  (  JETA  .EQ.  2  )  THEN 
ETA  -  0.339981043584856 
WE  -  0.652145154862546 
ELSE  IF  (  JETA  .EQ.  3  )  THEN 
ETA  -  -.339981043584856 
NE  -  0.652145154862546 
ELSE  IF  <  JETA  .EQ.  4  )  THEN 


ETA  -  -.861136311594053 
WE  -  0.347854845137454 
END  IF 

IF  (  KCEE  .EQ.  1  )  THEN 

CEE  -  0,861136311594053 
WC  -  0.347854845137454 
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c 


ELSE  IF  ( 
CEE  - 

wc  - 

ELSE  IF  ( 
CEE  - 
WC  « 
ELSE  IF  ( 
CEE  - 
WC  - 
END  IF 
HEIGHT  - 


KCEE  .EQ.  2  )  THEN 
'  0.339981043584856 
'  0.652145154862546 
KCEE  .EQ.  3  >  THEN 
'  -.339981043584856 
0.652145154862546 
KCEE  .EQ.  4  )  THEN 

■  -.861136311594053 

■  0.347854845137454 

WX*WE*WC 


C 

C 


END  IF 

END  IF 

RETURN 

END 


SUBROUTINE  MXMUL  (A, B, C, IDIM, JDIM, KDIM, IROW, JCOL, KCOL) 

MATRIX  (A)  TIMES  (B) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  A ( IDIM, 1 ) , B ( JDIM, 1 ) , C (KDIM, 1 ) 

DO  I  -  1,  IROW 
DO  K  -  1,  KCOL 
SUM  -  0.0 

DO  J  -  1,  JCOL 

SOM  -  SUM  +  A(1,J)*B{J,K> 

END  DO 
C(I,K)  »  SUM 
END  DO 
END  DO 

RETURN 

END 


SUBROUTINE  MXATB  (A, B, C, IDIM, JDIM, KDIM, IROW, JCOL, KCOL) 

MATRIX  (A)  TRANSPOSE  TIMES  (B) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  AdDIM,  1)  ,B(JDIM,  1)  ,C(KDIM,  1) 

DO  I  -  1,  IROW 
DO  K  -  1,  KCOL 
SUM  -  0.0 
DO  J  -  1,  JCOL 

SUM  -  SUM  +  A{J,I) *B(J,K) 

END  DO 

C(I,K)  -  SOM 
END  DO 
END  DO 

RETURN 

END 


SUBROUTINE  MXINT (A, IDIM, JDIM, VAL) 
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MATRIX  INITIALIZATION 

IMPLICIT  DOUBLE  PRECISION  (A-H,0>Z) 

DIMENS ION  A ( IDIM, JDIM) 

DO  I  -  1,  IDIM 
DO  J  -  1,  JDIM 
A<I,J)  -  VAL 
END  DO 
END  DO 

RETURN 

END 


SUBROUTINE  MXADD {A, B, IDIM, JDIM, IRON, JCOL, COEFF) 

MATRIX  ADDITION;  A  -  A  +  COEFF*B 

IMPLICIT  DOUBLE  PRECISION  (A>H,0-Z) 

C 

DIMENSION  A(IDIM, JDIM) ,B (IDIM, JDIM) 

C 

DO  I  «  1,  IRON 
DO  J  -  1,  JCOL 

A(I,J)  -  A(I,J)  +  COEFF  *  B(I,J) 

END  DO 
END  DO 
C 

RETURN 

END 
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APPENDIX  B 

Demonstration  problem  I;  2-D  analysis  of  a  single-lap  joint. 
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ABAQUS  INPUT  FILE 


‘HEADING 

2-D  SINGLE-LAP  JOINT.  100  H2L6N  ELEMENTS  ALONG  BONDLINE. 


‘NODE 


1, 

0.0, 

C.O 

51, 

63.5, 

0.0 

151, 

76.2, 

0.0 

605, 

0.0, 

1.6 

655, 

63.5, 

1.6 

755, 

76.2, 

1.6 

1001, 

63.5, 

1.75 

1101, 

76.2, 

1.75 

1151, 

139.7, 

1.75 

1605, 

63.5, 

3.35 

1705, 

76.2, 

3.35 

1755, 

139.7, 

3.35 

2001, 

63.5, 

1.675 

2101, 

76.2, 

1.675 

** 

‘NGEN, 

NSET- 

BL 

1,605, 

151 

*NGEN,  NSET-BM 

51.655.151 
‘NGEN,  NSET-BR 

151.755.151 
‘NGEN,  NSET-TL 

1001.1605.151 
‘NGEN,  NSET-TM 

1101.1705.151 
‘NGEN,  NSET-TR 

1151.1755.151 
‘NGEN,  NSET-MIDDLE 
2001,2101,1 

** 

‘NFILL 

BL,  BM,  50,  1 

BM,  BR,  100,  1 

TL,  TM,  100,  1 

TM,  TR,  50,  1 
‘ELEMENT, TYPE-CPE4 


1, 

1, 

2, 

153, 

152 

451, 

454, 

455, 

606, 

605 

1101,  1101, 

1102, 

1253, 

1252 

1151,  1152, 

1153, 

1304, 

1303 

“  DEFINE  ADHESIVE  ELEMENT  H2l6N 

•  * 

‘USER  ELEMENT,  NODES-6,  TYPE-Ul,  PROPERTIES-56 

1,2 

‘ELEMENT,  TTPE-Ul 


2001,  504,  505, 

655, 

656, 

2001, 

2002 

2101,  2001,  2002, 

1001, 

1002, 

1152, 

1153 

‘ELGEN,  ELSET-TOP 
1101,  50,  1,  1,  1 
1151,150,  1,  1,  3, 

151, 

150 

‘ELGEN,  ELSET-BOT 
1,  150,  1,1,3,151, 

150 

451,50,  1,1,1 
‘ELGEN,  ELSET-MID4 
2001,  100,  1,  1,  1 
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*ELGEN,  ELSET-MID5 
2101,  100,  1,  1,  1 
*ELSET,ELSET-ONE 
1 

** 

**  USER  DEFINED  SUBROUTINE: 

** 

‘USER  SUBROUTINE,  INPUT-uel  hybrid. f 
**  ~ 

**  ELEMENT  PROPERTIES 

‘SOLID  SECTION,  ELSET-TOP,  MATERIAL=MIDl 
‘SOLID  SECTION,  ELSET-BOT,  MATERIAL-MID3 
‘MATERIAL,  NAME-MIDl 
‘ELASTIC,  TYPE-ISO 

0.69000E+05,  0.32E+00,  0 . OOOOOOOOOE+00 
** 

** 

‘MATERIAL,  NAME-MID3 
‘ELASTIC,  TYPE-ISO 

0.69000E+05,  0.32E+00,  0 . OOOOOOOOOE+00 

*  * 

“  USER  DEFINED  ELEMENT  PROPERTY  LIST: 

**  ■* 

“  BOTTOM  ROW 

■kie 

‘UEL  PROPERTY,  ELSET-MID4 
11.0,  1.0,  1.0 
1.0,  1.0 

0.4,  0.0,  69000.0,  69000.0,  69000.0,  0.32,  0.32,  0.32 
26136.3636,  26136.3636,  26136.3636 
1.0,  1.0 

0.15,  0.0,  3000.0,  3000.0,  3000.0,  0.36,  0.36,  0.36 
1102.9412,  1102.9412,  1102.9412, 

*tlr 

“  TOP  ROW 
** 

*UEL  PROPERTY,  ELSET-MID5 
11.0,  1.0,  1.0 
1.0,  1.0 

0.15,  0.0,  3000.0,  3000.0,  3000.0,  0.36,  0.36,  0.36 
1102.9412,  1102.9412,  1102.9412, 

1.0,  1.0 

0.4,  0.0,  69000.0,  69000.0,  69000.0,  0.32,  0.32,  0.32 
26136.3636,  26136.3636,  26136.3636 
** 

*-k 

‘NSET,  NSET-HOLD 
1,152,303,454,605 
‘ELSET,  ELSET-PULL 
1150,1300,1450,1600 
‘ELSET,  ELSET-NAVE 
500 

‘NGEN,  NSET-ROLLER 
2,  5,  1 

606,  609,  1 

1147,  1151,  1 
1751,  1755,  1 
** 

*« 

‘BOUNDARY 
HOLD,  1,  2 
ROLLER,  2 
** 
kk 

‘STEP, PERTURBATION 
‘STATIC 
** 
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** 

** 


LOAD  CASE  SPECIFICATION: 


♦DLOAD,  OP-NEW 
PULL,  P2,  -93.75 
** 
itii 

♦NODE  PRINT 
U 
RF 

*EL  PRINT, ELSET-NAVE, POSITION-AVERAGED  AT  NODES 
S 

♦END  STEP 
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ABAQUS  OUTPUT  FILE 


AAAAAA 

BBBBBBBBB 

AAAAAA 

QQQQOQOQ 

U 

u 

SSSSSSSS 

A 

A 

B 

B 

A 

A 

0 

Q 

U 

u 

s 

A 

A 

B 

B 

A 

A 

Q 

Q 

U 

u 

s 

A 

A 

B 

B 

A 

A 

Q 

Q 

U 

u 

s 

AAAAAAAAAA 

BBBBBBBBB 

AAAAAAAAAA 

Q 

Q 

U 

u 

SSSSSSSS 

A 

A 

B 

B 

A 

A 

Q 

0  Q 

u 

u 

s 

A 

A 

B 

B 

A 

A 

Q 

0  Q 

u 

u 

s 

A 

A 

B 

B 

A 

A 

Q 

Q  Q 

u 

u 

s 

A 

A 

BBBBBBBBB 

A 

A 

QQQQOQOQ 

Q 

uuuuuuuu 

SSSSSSSS 

<i>  <i>  <i>  <i>  <i>  <i>  <i>  <i>  <i>  <i> 

<i>  <i>  <i>  <i>  <i>  <i>  <i>  I  I  I 

I  I  I  I  I  I  I  <i>  <i>  <i> 


1 

<l> 

1 

<l> 

1 

! 

<l> 

<1> 

<l> 

<t> 

1 

<l> 

1 

1 

1 

1 

1 

<1> 

<l> 

<l> 

<l> 

1 

<l> 

1 

<l> 

<l> 

1 

<l> 

1 

<l> 

<l> 

1 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

1 

1 

<\> 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

1 

<)> 

1 

<l> 

<l> 

<l> 

<1> 

<l> 

<l> 

<l> 

1 

<l> 

<l> 

<l> 

<t> 

<l> 

<1> 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

THIS  PROGRAM  HAS  BEEN  DEVELOPED  BY 

HIBBITT,  KARLSSON  AND  SORENSEN,  INC. 
1080  MAIN  STREET 
PAWTUCKET,  R.I.  02860 


THIS  IS  A  PROPRIETARY  PROGRAM.  IT  MAY  ONLY  BE 
USED  UNDER  THE  TERMS  OF  THE  LICENSE  AGREEMENT 
BETWEEN  HIBBITT,  KARLSSON  t  SORENSEN,  INC. 

AND  ARMY  RESEARCH  LABORATORY. 


*  *  *  * 


***«*#•*#*•* 


»  NOTICE  ♦ 


******* 


THIS  IS  ABAQUS  VERSION  5.3. 


PLEASE  MAKE  SURE  YOU  ARE  USING  VERSION  5.3  MANUALS 
PLUS  THE  NOTES  ACCOMPANYING  THIS  RELEASE.  THESE  NOTES 
CAN  BE  OBTAINED  BY  USING  THE  INFORMATION  OPTION  ON  THE 
ABAOUS  COM4AND  LINE. 

**************************** 


ABAQUS  INPUT  ECHO 


5  10  15  20  25  30  35  40  45  50  55  60  65  70 


* HEADING 
•NODE 

1  ,0.0,  0.0 
51,  63.5,  0.0 
CARD  5  151,  76.2,  0.0 


83 


75 


CARD 


10 


CARD  15 


CARD  20 


CARD  25 


CARD  30 


CARD  35 


CARO  40 


CARO  45 


CARO  50 


CARD  55 


CARD  60 


605,  0.0,  1.6 
655,  63.5,  1.6 
755,  76.2,  1.6 
1001,  63.5,  1.75 
1101,  76.2,  1.75 
1151,  139.7,  1.75 
1605,  63.5,  3.35 
1705,  76.2,  3.35 
1755,  139.7,  3.35 
2001,  63.5,  1.675 
2101,  76.2,  1.675 
•NGEN,  NSET-BL 

1.605.151 
*NGEN,  NSET-BM 

51.655.151 
*NGEN,  NSET'BR 

151.755.151 
»NGEN,  NSET-TL 

1001. 1605. 151 
»NGEN,  NSET-TM 

1101.1705.151 
•NGEN,  NSET=TR 

1151.1755.151 
•NGEN,  NSET-MIDDLE 
2001,2101,1 
•NFILL 

BL,  BM,  50,  1 

BM,  BR,  100,  1 

TL,  TM,  100,  1 

TM,  TR,  50,  1 
•ELEMENT, TYPE-CPE4 
1,  1,  2,  153,  152 

451,  454,  455,  606,  605 
1101,  1101,  1102,  1253,  1252 
1151,  1152,  1153,  1304,  1303 

•USER  ELEMENT, NODES«6,TYPE=Ul,PROPERTIES-24, COORDINATES=3, VARIABLES- 

1.2 

•ELEMENT,  TYPE-Ul 

2001,  504,  505,  655,  656,  2001,  2002 
2X01,  2001,  2002,  1001,  1002,  1152,  1153 
•ELGEN,  ELSET-TOP 
1101,  50,  1,1,1 
1151,  150,  1,  1,  3,  151,  150 
•ELGEN,  ELSET-BOTTOM 
1,150,1,1,3,151,150 
451,50,  1,1,1 
•ELGEN,  ELSET-MID4 
2001,  100,  1,  1,  1 
•ELGEN,  ELSET-MID5 
2101,  100,  1,  1,  1 
*ELSET,ELSET-0NE 
1 

*♦  USER  DEFINED  SUBROUTINE: 

*» 

•USER  SUBROUTINE, INPUT-uelJjybrid. f 


CARD  65 


CARO  70 


•*  ELEMENT  PROPERTIES 

** 

•SOLID  SECTION.  ELS.ET-TOP  ,  MATERIAL-MIDI 
•SOLID  SECTION,  ELSET-BOTTOM  ,  MATERIAL-MID3 
•MATERIAL,  NAME-MIDI 
•ELASTIC,  TYPE-ISO 

0.69000E+05,  0.32E<-00.  O.OOOOOOOOOE  +  00 


•MATERIAL,  NAME-MID3 
•ELASTIC,  TYPE -I SO 

CARD  75  0.69000E+05,  0.32E+00,  O.OOOOOOOOOE+OO 

*• 

••  USER  DEFINED  ELEMENT  PROPERTY  LIST: 


••  BOTTOM  ROW 

CARO  80  *UEL  PROPERTY, ELSET-MID4 

0.69ES, 0.32, 1.0 
0.3E4, 0.36, 1.0 
6.0, I.O, 3.0, 0.0 
*•  TOT  ROW 

CARO  85  WBL  PROPERTY, ELSET-MID5 

0.3E4, 0.36, 1.0 
0.69E5, 0.32, 1.0 
6.0, 1.0, 3.0, 0.0 
•NSET,NSET-HOLD 
1.152,303.454,605 


CMD 


90 


84 


CARD  95 


CARD  100 


CARD  105 


•ELSET,ELSET-PULL 
1150,1300,1450,1600 
•ELSET,  EI.SET=NAVE 
500 

•NGEN,NSET-ROLLER 

2.5.1 
606,  609,1 

1147.1151.1 

1751. 1755. 1 

*• 

•BOlrtlDARY 
HOLD, 1,2 
ROLLER, 2 

*STEP ,  PERTURBATION 
‘STATIC 


••  LOAD  CASE  SPECIFICATION: 

** 

CARD  110  ‘DLOAD,  OP-NEW 

PULL, P2, -93. 75 
‘NODE  PRINT 
U 

RF 

CARD  115  *EL  PRINT, ELSET-NAVE, POSITION-AVERAGED  AT  NODES 

S 

‘END  STEP 


10  15  20  25  30  35  40  45  50  55  60  65  70  75 


OPTIONS  BEING  PROCESSED 

********-****»**«******»«»* 


‘HEADING 

‘NODE 

‘NGEN,  NSET-BL 
‘NGEN,  NSET-BM 
‘NGEN,  NSET-BR 
‘NGEN,  NSET-TL 
‘NGEN,  NSET-TM 
‘NGEN,  NSET-TR 
‘NGEN,  NSET-MIODLE 
‘NFILL 


THE 

FOLLOWING 

NODES 

WILL  BE 

USED  IN 

THE  NFILL 

GENERATION 

BOUND 

1 

1 

152 

303 

454  605 

BOUND 

2 

51 

202 

353 

504  655 

THE 

FOLLOWING 

NODES 

HILL  BE 

USED  IN 

THE  NFILL 

GENERATION 

BOUND 

1 

51 

202 

353 

504  655 

BOUND 

2 

151 

302 

453 

604  755 

THE 

FOLLOWING 

NODES 

HILL  BE 

USED  IN 

THE  NFILL 

GENERATION 

BOUND 

1 

1001 

1152 

1303 

1454  1605 

BOUND 

2 

1101 

1252 

1403 

1554  1705 

THE 

FOLLOWING 

NODES 

WILL  BE 

USED  IN 

THE  NFILL 

GENERATION 

BOUND 

1 

1101 

1252 

1403 

1554  1705 

BOUND 

2 

1151 

1302 

1453 

1604  1755 

‘ELEHENT, TYPE-CPE4 

•USER  ELEMENT, HOOES-6,TYPE-Ul,PROPERTIES-24, COORD INATES-3,VARIABLES-1 

‘ELEMENT,  TYPE-Ul 

‘BLCEN,  ELSET-TOP 

‘■5LGEN,  ELSET-BOTTOM 

‘ELGEN,  ELSET-MI04 

•ELGEN,  BLEEToMIDS 

•ELSET, ELSET-ONE 


85 


•HSBT.HSET-HOLD 

*elset,elsbt«pu]:,l 

*EL$BT.  BLSBT'NAVE 
*li6BM,  HSET-ROLLBR 
*»fi^TBRIA];..  N»C>NI01 
•ELASTIC,  TWE-ISO 
•MATERIAL,  NAME-MID3 
•ELASTIC,  TYPE-ISO 

•USER  ELEMEST, NODBS-6. TYPE-Ul, PROPERTIES-24.COORDINATES-3, VARIABLES-1 

•SOLID  SECTION, BLSET-TOP  ,  MATERIAL-MIOl 

•SOLID  SECTION, ELSET-BOTTOM  , MATERIAL-MID3 

•UEL  PROP*lTY.ELSET-MID4 

•OEL  PROPERTY, ELSET-MID5 

•STEP , PERTORBAT ION 

•STATIC 

•DLOAD,  OP-NEW 

•EL  PRINT, ELSET-NAVE, POSITION-AVERAGED  AT  NODES 

•END  STEP 

•TOONDARY 

•STEP, PERTURBATION 
•STATIC 
•NODE  PRINT 
•END  STEP 


E 

L  E  M  E 

N  T 

0  E  F  I  N 

I  T  I 

0  N  S 

NUMBER 

TYPE 

PROPERTY 

NODES 

FORMING 

ELEMENT 

REFERENCE 

I 

CPE4 

2 

1 

2 

153 

152 

2 

CPE4 

2 

2 

3 

154 

153 

3 

CPE4 

2 

3 

4 

155 

154 

4 

CPE4 

2 

4 

5 

156 

155 

S 

CPE4 

2 

S 

6 

157 

156 

6 

CPE4 

2 

6 

7 

158 

157 

7 

CPE4 

2 

7 

8 

159 

158 

8 

CPE  4 

2 

8 

9 

160 

159 

9 

CPE4 

2 

9 

10 

161 

160 

10 

CPE4 

2 

10 

11 

162 

161 

1590 

CPE4 

i 

1593 

1594 

1745 

1744 

1591 

CPE4 

1 

1594 

1595 

1746 

1745 

1592 

CPE4 

1 

1595 

1596 

1747 

1746 

1593 

CPE4 

1 

1596 

1597 

1748 

1747 

1594 

CPE4 

1 

1597 

1598 

1749 

1748 

1595 

CPE4 

1 

1598 

1599 

1750 

1749 

1596 

CPE4 

1 

1599 

1600 

1751 

1750 

1597 

CPE4 

1 

1600 

1601 

1752 

1751 

1598 

CPE4 

1 

1601 

1602 

1753 

1752 

1599 

CPE4 

1 

1602 

1603 

1754 

1753 

1600 

CPE  4 

1 

1603 

1604 

1755 

1754 

2001 

U1 

3 

504 

505 

655 

656 

2001 

2002 

2002 

U1 

3 

505 

506 

656 

657 

2002 

2003 

2003 

01 

3 

506 

507 

657 

658 

2003 

2004 

2004 

01 

3 

507 

508 

658 

659 

2004 

2005 

2005 

U1 

3 

508 

509 

659 

660 

2005 

2006 

2006 

01 

3 

509 

510 

660 

661 

2006 

2007 

2007 

01 

3 

510 

511 

661 

662 

2007 

2008 

2008 

01 

3 

511 

512 

662 

663 

2008 

2009 

2009 

01 

3 

512 

513 

663 

664 

2009 

2010 

2010 

01 

3 

513 

514 

664 

665 

2010 

2011 

2i90 

ui 

4 

2090 

2091 

1090 

1091 

1241 

1242 

2191 

01 

4 

2091 

2092 

1091 

1092 

1242 

1243 

2192 

01 

4 

2092 

2093 

1092 

1093 

1243 

1244 

2193 

01 

4 

2093 

2094 

1093 

1094 

1244 

1245 

2194 

01 

4 

2094 

2095 

1094 

1095 

1245 

1246 

2195 

01 

4 

2095 

2096 

1095 

1096 

1246 

1247 

2196 

01 

4 

2096 

2097 

1096 

1097 

1247 

1248 

2197 

01 

4 

2097 

2098 

1097 

1098 

1248 

1249 

2198 

01 

4 

2098 

2099 

1098 

1099 

1249 

1250 

2199 

01 

4 

2099 

2100 

1099 

1100 

1250 

1251 

2200 

01 

4 

2100 

2101 

1100 

1101 

1251 

1252 

0 

S  E  R 

E  L  E 

M  E  N  T  S 

U1 


ELEMENT  TYPE 

mnmM  or  modes 


6 


86 


NUMBER  OF  COORDINATES  3 

NUtffiER  OF  PROPERTIES  24 

NUMBER  OF  VARIABLES  1 

DEGREES  OF  FREEDOM 
NODE  D.O.F. 

1  12 
2  12 

3  12 

4  12 

5  12 

6  12 


PROPERTY  NUMBER 
MATERIAL  NAME 
ATTRIBUTES 

HOURGLASS  CONTROL  STIFFNESS  PARAMETER  130.68 

(USED  WITH  LOWER  ORDER  REDUCED  INTEGRATED  SOLID  ELEMENTS  LIKE  CPS4R, CPE4RH, C3D8R) 

PROPERTY  NUMBER  2 

MATERIAL  NAME  MID3 

ATTRIBUTES  1.0000  .OOOOOE+00  .OOOOOE+00 

HOURGLASS  CONTROL  STIFFNESS  PARAMETER  130.68 

(USED  WITH  LOWER  ORDER  REDUCED  INTEGRATED  SOLID  ELEMENTS  LIKE  CPS4R, CPE4RH. C3D8B) 
USER  ELEMENT  PROPERTY 


SOLID  SECTION 


MIDI 

1.0000 


.OOOOOE+00  .OOOOOE+00 


PROPERTY  NUMBER  3 
PROPERTIES 


11.00 

1.000 

1.000 

.OOOOB+OO 

.OOOOE+OO 

•OOOOE+OO 

.OOOOE+OO 

•OOOOE+O 

1.000 

1.000 

.OOOOE+00 

.QOOOE-t-QO 

.OOOOE+OO 

.OOOOE+OO 

■OOOOE+OO 

.OOOOE+0 

.4000 

.0OOOE>OO 

6.9000E+04 

6.9000E-i'04 

6.9000B+04 

.3200 

.3200 

.3200 

2.6136E+04 

2.6136E+04 

2.6136E'»'04 

.QOOOE'I'OO 

.OOOOE+OO 

.OOOOE+OO 

.OOOOE+OO 

.OOOOE+O 

1.000 

1.000 

.OOOOE+00 

.OOOOE+00 

.OOOOE+OO 

•OOOOE+OO 

.OOOOE+OO 

.OOOOE+O 

.1500 

.0000E>00 

3000. 

3000. 

3000. 

.3600 

.3600 

.3600 

1103. 

1103. 

1103. 

.OOOOE-fOO 

.OOOOE+OO 

.OOOOE+OO 

.OOOOE+OO 

.OOOOE+O 

PROPERTY  NUMBER  4 

PROPERTIES 

11.00 

1.000 

1.000 

.OOOOE-i-OO 

.OOOOE+OO 

.OOOOE+OO 

.OOOOE+OO 

.OOOOE+OO 

1.000 

1.000 

.OOOOEH-OO 

.OOOOE+OO 

.OOOOE+OO 

.OOOOE+OO 

.OOOOE+OO 

.OOOOE+OO 

.1500 

.OOOOE+00 

3000. 

3000. 

3000. 

.3600 

.3600 

.3600 

1103. 

1103. 

1103. 

.OOOOE+OO 

.OOOOE+OO 

.OOOOE+OO 

.OOOOE+OO 

.OOOOE+OO 

1.000 

1.000 

.OOOOE+00 

.OOOOE+OO 

.OOOOE+OO 

.OOOOE+OO 

.OOOOE+OO 

.OOOOE+OO 

.4000 

.OOOOE't'OO 

6.9000E+04 

6.9000E+04 

6.9000E+04 

.3200 

.3200 

.3200 

2.6136E+04 

2.613SE+04 

2.6136E+04 

, OOOOE+OO 

.OOOOE+OO 

.OOOOE+OO 

•OOOOE+OO 

.OOOOE+OO 

M  A 

t  T  E  R  I  A  L 

0  E  S  C  R 

I  P  T  I  0  N 

MATERIAL  NAME:  MIDI 


ELASTIC  YOUNG'S  POISSON'S 

MODULUS  RATIO 

69000.  .32000 


MATERIAL  NAME:  MID3 


ELASTIC  YOUNG'S  POISSON'S 

MODULUS  RATIO 

69000.  .32000 


ELEMENT  SETS 


SET  TOP 


1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

11 

1113 

1114 

1115 

1116 

iin 

1118 

1119 

1120 

11 

1125 

1126 

112T 

1128 

1129 

1130 

1131 

1132 

11 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

IS 

1593 

1594 

1595 

1596 

1591 

1598 

1599 

1600 

87 


SET 

BOTTOM 

MEMBERS 

1 

2 

3 

4 

5 

6 

7 

8 

13 

14 

15 

16 

17 

18 

19 

20 

■ 

481 

482 

483 

484 

485 

486 

487 

488 

4 

493 

494 

4  95 

496 

4  97 

498 

499 

500 

SET 

MID  4 

MEMBERS 

2001 

2002 

2003 

2004 

2005 

2006 

2007 

2008 

20 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

20 

2091 

2098 

2099 

2100 

SET 

HIDS 

MEMBERS 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2108 

21 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 

21 

2197 

2198 

2199 

2200 

SET 

ONE 

MEMBERS 

1 

SET 

POLL 

MEMBERS 

IISO 

1300 

1450 

1600 

SET 

NAVE 

MEMBERS 

500 

• 

N 

ODE 

SETS 

SET 

BL 

MEMBERS 

1 

152 

303 

454 

605 

SET 

BH 

MEMBERS 

51 

202 

353 

504 

655 

SET 

BR 

MEMBERS 

151 

302 

453 

604 

755 

SET 

TL 

MEMBERS 

1001 

1152 

1303 

1454 

1605 

SET 

TM 

MEMBERS 

1101 

1252 

1403 

1554 

1705 

SET 

TR 

MEMBERS 

1151 

1302 

1453 

1604 

1755 

SET 

MIDDLE 

MEMBERS 

2001 

2002 

2003 

2004 

2005 

2006 

2007 

2008 

20 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

20 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

20 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

20 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

20 

2061 

2062 

2063 

2064 

2065 

2066 

2067 

2068 

20 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 

20 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

20 

2097 

2098 

2099 

2100 

2101 

SET 

HOLD 

MEMBERS 

1 

152 

303 

454 

605 

SET 

ROU£R 

MEMBERS 

2 

3 

4 

5 

606 

607 

6J08 

609 

11 

1151 

1751 

1752 

1753 

1754 

1755 

NOD 

E  D 

E  F  I  N  I 

T  I  O  N 

S 

NODE 

COORDINATES 

SINGLE  POINT  CONSTRAINTS 

NUMBER 

1 

.OOOOOE^OO 

.OOOOOE+OO 

.OOOOOE+00 

TYPE  PLUS  DOF 

1  2 

2 

1.2700 

.OOOOOB-kOO 

.OOOOOE>00 

2 

3 

2.5400 

.OOOOOE+OO 

.OOOOOEtOO 

2 

4 

3.8100 

.OOOOOE+00 

.OOOOOE+00 

2 

5 

5.0800 

.OOOOOE+OO 

.OOOOOE-t-OO 

2 

6 

6.3500 

.OOOOOE^OO 

.OOOOOE+00 

7 

7.6200 

.OOOOOE+OO 

.OOOOOE+OO 

a 

8.8900 

.OOOOOE+00 

.OOOOOE+00 

9 

10.160 

.000O0E>00 

.OOOOOE+00 

10 

11.430 

.OOOOOE't^OO 

.0000084^00 

2oh 

74I93O 

1.6750 

.ooo6qe40o 

2092 

75.057 

1.6750 

.00000E400 

2093 

75.184 

1.6750 

.00000E400 

2094 

75.311 

1.6750 

.OOOOOE400 

2095 

75.438 

1.6750 

.OOOOQE+OO 

2096 

75.565 

1.6750 

.OOOOOE+OO 

2097 

75.692 

1.6750 

.00000E4O0 

2099 

75.819 

1.6750 

.OOOO0E4OO 

2099 

75.946 

1.6750 

.00000E400 

2100 

76.073 

1.6750 

.OOOOOE+OO 

2101 

76.200 

1.6750 

.OOOOOE400 

88 


STEP  1  STATIC  ANALYSIS 

FIXED  TINE  INCREMENTS 
TIME  INCREMENT  IS 
TIME  PERIOD  IS 

THIS  IS  A  LINEAR  PERTURBATION  STEP. 

ALL  LOADS  ARE  DEFINED  AS  CHANGE  IN  LOAD  TO  THE  REFERENCE  STATE 
EXTRAPOLATION  WILL  NOT  BE  USED 
CHARACTERISTIC  ELEMENT  LENGTH  .492 

PRINT  OF  INCREMENT  NUMBER,  TIME,  ETC.,  EVERY  1  INCREMENTS 

ELEMENT  PRINT 

SUMMARIES  WILL  BE  PRINTED  WHERE  APPLICABLE 
TABLE  1  SIX  S22  S33  S12 

NODE  PRINT 


2.220E-16 

2.220E-16 


THE  FOLLOWING  TABLE  IS  PRINTED  FOR  ALL  NODES  AT  EVERY  1  INCREMENT 

SUMMARIES  WILL  BE  PRINTED 

TABLE  1  U1  U2 

THE  FOLLOWING  TABLE  IS  PRINTED  FOR  ALL  NODES  AT  EVERY  1  INCREMENT 


SUMMARIES  WILL  BE  PRINTED 

TABLE  2  RFI  RF2 


DISTRIBU 

TED  L  0  A 

D  S 

ELEMENT 

LOAD 

AMP. 

MAGNITUDE 

ELEMENT  LOAD 

AMP.  MAGNITUDE 

TYPE 

REF. 

TYPE 

REF. 

1150 

P2 

-93.750 

1300  P2 

-93.750 

1600 

P2 

-93.750 

1450  P2 

-93.750 

BOUNDARY 

C  0  N  D  I  T  I 

0  N 

5 

NODE 

DOF 

AMP. 

MAGNITUDE 

NODE 

DOF 

AMP.  MAGNITUDE 

REF. 

REF. 

1 

1 

(RAMP) 

.OOOOOE+00 

1 

2 

(RAMP)  .OOOOOE+00 

2 

2 

(RAMP) 

.OOOOOE+OO 

3 

2 

(RAMP)  .OOOOOE+00 

4 

2 

(RAMP) 

.OOOOOE+00 

5 

2 

(RAMP)  .OOOOOE+OO 

152 

1 

(RAMP) 

.OOOOOE+OO 

152 

2 

(RAMP)  .OOOOOE+OO 

303 

1 

(RAMP) 

.OOOOOE+00 

303 

2 

(RAMP)  .OOOOOE+OO 

454 

1 

(RAMP) 

.OOOOOE+OO 

454 

2 

(RAMP)  .OOOOOE+OO 

605 

1 

(RAMP) 

.OOOOOE+00 

605 

2 

(RAMP)  .OOOOOE+OO 

606 

2 

(RAMP) 

.OOOOOE+OO 

607 

2 

(RAMP)  .OOOOOE+OO 

608 

2 

(RAMP) 

.OOOOOE+00 

609 

2 

(RAMP)  .OOOOOE+OO 

1147 

2 

(RAMP) 

.OOOOOE+00 

1X48 

2 

(RAMP)  .OOOOOE+OO 

1149 

2 

(RAMP) 

.OOOOOE+00 

1150 

2 

(RAMP)  .OOOOOE+OO 

1151 

2 

(RAMP) 

.OOOOOE+OO 

1751 

2 

(RAMP)  .OOOOOE+OO 

1752 

2 

(RAMP) 

.OOOOOE+OO 

1753 

2 

(RAMP)  .OOOOOE+OO 

1754 

2 

(RAMP) 

.OOOOOE>00 

1755 

2 

(RAMP)  .OOOOOE+OO 

-  (RAIff)  OR  <STEP)  -  INDICATE  USE  OF  DEFAULT  AMPLITUDES  ASSOCIATED  WITH  THE  STEP 


WAVEFRONT  MINIMIZATION 


WAVEFRONT  MINIMIZATION  METHOD  X  WILL  BE  USED. 

HUMran  OF  NODES  16XX 

NUNffiBR  OF  ELEMENTS  X200 

ORIGINAL  MAXIMUM  D.O.F  WAVEFRONT  ESTIMATED  AS  7X4 
ORIGINAL  RMS  D.O.F  WAVEFRONT  ESTIMATED  AS  429 

PERIPHERAL  DIAfSTER  IS  DEFINED  BY  NODES  X  1X51 
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WAVEFRONt  OPTIMIZED  BY  CHOOSING 


1151  AS  THE  STARTING  NODE 


MINIMUM  WAVEFRONT  OBTAINED  USING  METHOD  1.  USE 
•WAVEFRONT  MINIMIZATION,  NODES,  METHOD-1 
1,  1151 

TO  REDUCE  THE  CPU  TIME  ON  SUBSEQUENT  JOBS  USING  THIS  SAME  MESH. 


PROBLEM  SIZE 


NUMBER  OF  ELEMENTS  IS  1200 

NUMBER  OF  NODES  IS  1611 

NUMBER  OF  NODES  DEFINED  BY  THE  USER  1611 

NUMBER  OF  INTERNAL  NODES  GENERATED  BY  THE  PROGRAM  0 

TOTAL  NUMBER  OF  VARIABLES  IN  THE  MODEL  3222 

(DEGREES  OF  FREEDOM  PLUS  ANY  LAGRANGE  MULTIPLIER  VARIABLES) 
MAXIMUM  D.O.F.  WAVEFRONT  ESTIMATED  AS  32 

RMS  WAVEFRONT  ESTIMATED  AS  2 A 


FILE  SIZES  -  THESE  VALUES  ARE  IN  WORDS  AND  ARE  CONSERVATIVE  UPPER  BOUNDS 


UNIT 

LENGTH 

21 

167400 

22 

167400 

IF  THE  RESTART  FILE  IS  WRITTEN  ITS  LENGTH  WILL  BE  APPROXIMATELY 
107747  WORDS  WRITTEN  IN  THE  PRE  PROGRAM 
PLUS  60720  WORDS  WRITTEN  AT  THE  BEGINNING  OF  EACH  STEP 

PLUS  223141  WORDS  FOR  EACH  INCREMENT  WRITTEN  TO  THE 'RESTART  FILE 

ALLOCATED  WORKSPACE  436165 

•USER  SUBROUTINE,  INPUT-uei_hybricl, f 


END  OF  USER  INPUT  PROCESSING 


JOB  TIME  SUMMARY 

CPU  TIME  (SBC)  -  5.8000 


STEP  1  STATIC  ANALYSIS 


FIXED  TIME  INCREMENTS 

TIME  INCREMENT  IS  2.220E-16 

TIME  PERIOD  IS  2.;20E-16 

THIS  IS  A  LINEAR  PERTURBATION  STEP. 

ALL  LOADS  ARE  DEFINED  AS  CHANGE  IN  LOAD  TO  THE  REFERENCE  STATE 


ELEMENT  ID  2101 


STRESS  OUTPUT  IN  LOCAL  COORDINATES  FOR  LAYER  1 


STRESS 

POINTS 

STRESS 

COMPONENTS 

Cl 

CJ 

sxx 

SYY 

SXY 

-1.0000 

-1.0000 

-.797E+00 

.426E+02 

.247E+02 

-1.0000 

1.0000 

.498E+01 

.317E+02 

.161E+02 

1.0000 

-1.0000 

.138E402 

.693E+02 

.402E+02 

1.0000 

1.0000 

.332E+02 

.619Et02 

.438E+02 

.0000 

.0000 

. 159E+02 

.531E+02 

.330E+02 

-.5774 

-.5774 

.616E>01 

.462E+02 

.297E+02 

.5774 

-.5774 

.962E+01 

.633E+02 

.364E+02 

-.5774 

.5774 

.178E+02 

.412E+02 

.263E+02 

.5774 

.5774 

.258E+02 

.594B^02 

.370E+02 

STRESS  OUTPUT  IN  LOCAL  COORDINATES  FOR  LAYER  2 


STRESS  POINTS  STRESS  COMPONENTS 


Cl 

CJ 

sxx 

SYY 

SXY 

-1.0000 

-1.0000 

-.26SB^02 

.317E402 

.161E+02 

-1.0000 

1.0000 

-.lllE+02 

-.170E+01 

.llOE+02 

1.0000 

-1.0000 

.528E+02 

.619E+02 

.438E+02 

1.0000 

1.0000 

.203E-f02 

.242E+02 

.772E+00 

.0000 

.0000 

.349E+00 

.158E+02 

-.107E+01 

-.5774 

-.5774 

.166E+00 

.234E+02 

-.907E+Q1 

.5774 

-.5774 

.122E+02 

.384E+02 

.354E+01 
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5774 

5774 


5774 

5774 


.212E+01 

.174E+01 


.275E+01  .l33Et02 

.163E+02  .133E+02 


ELEMENT  STRAIN  ENERGY  •  .801E-02 

BLEFffiNT  ID  2001 


STRESS  OUTPUT  IN  LOCAL  COORDINATES  FOR  LAYER  1 


STRESS 

POINTS 

STRESS 

COMPONENTS 

Cl 

CJ 

SXX 

SYY 

SXY 

-1.0000 

-1.0000 

.202E+03 

.242E+02  - 

.459E+01 

-1.0000 

1.0000 

.445B+03 

.115E+03 

.647E+02 

1.0000 

-1.0000 

.169E+03 

.177E+02  - 

.627E+01 

1.0000 

1.0000 

.3S8E+03 

.509E+02 

.512E+02 

.0000 

.0000 

.294E+03 

.475E+02 

.692E>01 

-.5774 

-.5774 

.229B+03 

.239E+02 

.147E+02 

.5774 

-.5774 

.227E+03 

.320E+02 

.563E+01 

-.5774 

.5774 

.369E+03 

.756E+02 

.231E+02 

.5774 

.5774 

.353E+03 

.645E+02 

.lOlE+02 

STRESS  OUTPUT  IN  LOCAL  COORDINATES  FOR  LAYER  2 


STRESS  POINTS  STRESS  COMPONENTS 


Cl 

CJ 

SXX 

SYY 

SXY 

-1.0000 

-1.0000 

.847E+02 

.115E+03 

.647E-t-02 

-1.0000 

1.0000 

.408E+02 

.127E+03 

.623E-t-02 

1.0000 

-1.0000 

.432E+02 

.509E+02 

.512E■^02 

1.0000 

1.0000 

.735E+01 

.592E+02 

.417E•^02 

.0000 

.0000 

.422E+02 

.866E+02 

.547E+02 

-.5774 

-.5774 

.607E+02 

.lOSE+03 

.584E■^02 

.5774 

-.5774 

.479E+02 

.623E+02 

.498E+02 

-.5774 

.5774 

,364E+02 

.113E+03 

.610E+02 

.5774 

.5774 

.262E+02 

.674E+02 

.500E't-02 

ELEMENT 

STRAIN  1 

ENERGY  ”  .476E- 

■01 

ELEMENT  ID  2100 


STRESS  OUTPUY  IN  LOCAL  COORDINATES  FOR  LAYER  1 


STRESS 

POINTS 

STRESS 

COMPONENTS 

Cl 

CJ 

SXX 

SYY 

SXY 

-1.0000 

-1.0000 

.203E+02 

.242E+02 

.772E+00 

-1.0000 

1.0000 

.528E't-02 

.619E+02 

.438E■^0^ 

1.0000 

-1.0000 

-.111E■^02  - 

.170E+01 

.  llOE+02 

1.0000 

1.0000 

-.265E+02 

.317E-f02 

.161E■^02 

.0000 

.0000 

.349E+00 

.158E-f02  - 

.1■'7E■^01 

-.5774 

-.5774 

-.174E+01 

.163E■^02 

.l_3E+02 

.5774 

-.5774 

.212E+01 

.275E+01 

.133E+02 

-.5774 

.5774 

.122E■^02 

.384E4-02 

.354E+01 

.5774 

.5774 

.166E+00 

.234E+02  - 

. 907E+01 

STRESS  OUTPUT  IN  LOCAL  COORDINATES  FOR  LAYER  2 


STRESS 

POINTS 

STRESS 

COMPONENTS 

Cl 

CJ 

SXX 

SYY 

SXY 

■1.0000 

-1.0000 

.332E-t^02 

.619E^f02 

.438E+02 

1.0000 

1.0000 

.138E+02 

.693E+02 

.402E«^02 

1.0000 

-1.0000 

.498E+01 

.317E+02 

.161E+02 

1.0000 

1.0000 

-.797E+00 

.*26E*02 

.247E■^02 

.0000 

.0000 

.159E+02 

.531E-f02 

.330E■^02 

-.5774 

-.5774 

.258E+02 

.594E■^02 

.370E+02 

.5774 

-.5774 

.178E+02 

.412Ef02 

.263E4-02 

-.5774 

.5774 

.982E+01 

.633E+02 

.364E+02 

.5774 

.5774 

.616E+01 

.462E+02 

.297E*02 

BLEteNT  10  2200 

STRESS  OUTPUT  IS  LOCAL  CCK)R01NATES  FOR  LAYER  1 


STRESS  POINTS 
Cl  CJ 

-i.ddoo  -1.0000 
-1.0000  1.0000 
1.0000  -1.0000 


STRESS  COMPONENTS 
SXX  SYY  SXY 

.735E+01  .592E+02  .417E+02 

.432B+02  .S09E+02  .512E+02 

.408E+02  .127E+03  .623E+02 
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I. 0000 

1.0000 

.847E+02 

.115E+03 

.647E+02 

.0000 

.0000 

.422E+02 

.866E+02 

.547E+02 

-.5774 

-.5774 

.262E+02 

.674E+02  • 

.500E+02 

.5774 

-.5774 

.364E+02 

.113E+03 

.610E+02 

-.5774 

.5774 

.479E+02 

.  623E+02 

.498E+02 

.5774 

.5774 

.607E+02 

.  106E+03 

.584E+02 

STRESS  OUTPUT  IN 

LOCAL  COORDINATES  FOR  LAYER  2 

STRESS 

POINTS 

STRESS 

COMPONENTS 

Cl 

CJ 

sxx 

SYY 

SXY 

-1.0000 

-1.0000 

.368E+03 

.509E+02 

.512E+02 

-1.0000 

1.0000 

.169E+03 

.177E+02  - 

.627E+Q1 

1.0000 

-1.0000 

.445E+03 

.115E+03 

.647E+02 

1.0000 

1.0000 

.202E+03 

.242E+02  - 

.459E+Q1 

.0000 

.0000 

.294E+03 

.475E+02 

.692E+01 

-.5774 

-.5774 

.353E+03 

.645E+02 

.lOlE+02 

.5774 

-.5774 

.369E+03 

.756E+02 

.23iE+02 

-.5774 

.5774 

.227E+03 

.320E+02 

.563E+01 

.5774 

.5774 

.229E+03 

.239E+02 

.147E+02 

EtEMENT  STRAIN  ENERGY  =  .476E-01 


INCREMENT  1  SUMMARY 


TIME  INCREMENT  COMPLETED  2.220E-1S,  FRACTION  OF  STEP  COMPLETED  l.OD 

STEP  TIME  COMPLETED  2.220E-16,  TOTAL  TIME  COMPLETED  .OOOE+00 


ELEMENT  OUTPUT 


THE  FOLLOWING  TAc-  E  IS  PRINTED  FOR  ELSET  NAVE  AND  ELEMENT  TYPE  CPE4  AVERAGED  AT  THE  NODE 


NODE 

FOOT¬ 

NOTE 

Sll 

S22 

S33 

S12 

503 

248.5 

22.90 

86.84 

-57.95 

504 

235.6 

35.79 

86.84 

66.43 

654 

287.7 

-16.28 

86.84 

-53.89 

655 

274.8 

-3.389 

86.84 

70.49 

MAXIMUM 

287.7 

35.79 

86.84 

70.49 

NODE 

654 

504 

504 

655 

MINIMUM 

235.6 

-16.28 

86.84 

-57.95 

NODE 

504 

654 

655 

503 

THE  FOLLOWING  TABLE  IS  1 

NODE  OUTP 

PRINTED  FOR  ALL  NODES 

NODE 

FOOT¬ 

U1 

U2 

2 

NOTE 

1.2104E-03 

.OOOOE+00 

3 

2.3850E-03 

.OOOOE+00 

4 

3.8386E-03 

.OOOOE+00 

5 

6.3518E-03 

.OOOOE+OO 

6 

9.7042E-03 

4,8198E-03 

7 

1.3104E-02 

1.1474E-02 

8 

1.6396E-02 

2.1403E-02 

9 

1.9556E-02 

3.3845E-02 

10 

2.2S86E-02 

4.8795E-02 

20« 

.1302 

-.2619 

2092 

.1304 

-.2634 

2093 

.1307 

-.2748 

2094 

.1309 

-.2812 

2095 

.1312 

-.2875 

2096 

.1314 

-.2939 

2097 

.I'll 

-.3003 

2098 

.1321 

-.3066 

2099 

.1324 

-.3129 

2100 

.1325 

-.3189 

2101 

.1315 

-.3263 

MAXIMUM 


2527 


6578 
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AT  NODE 


X755 


189 


MINIMUM  .OOOOE+00  -.6578 

AT  NODE  I  1567 


THE  POLLOMING  TABLE  IS  PRINTED  FOR  ALL  NODES 


NODE  FOOT¬ 

RFl 

RP2 

NOTE 

1 

-18.66 

-27.60 

2 

.OOOOE-t-OO 

-56.85 

3 

.OOOOE-t'OO 

-49.30 

4 

.OOOOE+00 

-42.34 

5 

.OOOOE+00 

-62.37 

152 

-37.51 

-.7832 

303 

-37.62 

.6980 

454 

-37.46 

-.2781 

605 

-18.74 

28.11 

606 

.OOOOE+00 

55.35 

607 

.OOOOE-fOO 

62.71 

608 

.OOOOE+OD 

68.27 

609 

.OOOOE+OO 

21.39 

1147 

.OOOOE>00 

-21.38 

1148 

.OOOOE+OO 

-68.27 

1149 

.oooor*oo 

-62.72 

1150 

.0OOOE«^O0 

-55.34 

1151 

.OOOOE+OO 

-28.06 

1751 

.0Q00E*^a0 

62.36 

1752 

.OOOOE+00 

42.35 

1753 

.OOOOE^OO 

■49.26 

1754 

.OOOOE+OO 

56.86 

1755 

.OOOOE^-OO 

27.92 

MAXItEIM 

.OOOOE^OO 

68.27 

AT  NODE 

2 

608 

MINIMUM 

-37.62 

-68.27 

AT  NODE 

303 

1148 

THE  ANALYSIS  HAS  BEEN  COMPLETED 


APPENDIX  C 

Demonstration  problem  11:  3>D  analysis  of  a  single-lap  joint. 
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ABAQUS  INPUT  FILE 


^HEADING 


3-D  SIWSLE-LAP  JOINT.  100  H2L12N  ELEJffiNTS  ALONG  BONDLINE. 


♦PREPRINT,  ECHO 

-  NO, 

HISTORY 

*NCH)E 

1, 

0.0, 

0.0, 

0.0 

301, 

63.5, 

0.0, 

0.0 

401, 

76.2, 

0.0, 

0.0 

4001, 

0.0, 

0.0, 

1.6 

4301, 

63.5, 

0.0, 

1.6 

4401, 

76.2, 

0.0, 

1.6 

5001, 

63.5, 

0.0, 

1.75 

5101, 

76.2, 

0.0, 

1.75 

5401, 

139.7, 

0.0, 

1.75 

9001, 

63.5, 

0.0, 

3.35 

9101, 

76.2, 

0.0, 

3.35 

9401, 

139.7, 

0.0, 

3.35 

4701, 

63.5, 

0.0, 

1.675 

4801, 

76.2, 

0.0, 

1.675 

50001, 

0.0, 

1.0, 

0.0 

50301, 

63.5, 

1.0, 

0.0 

50401, 

76.2, 

1.0, 

0.0 

54001, 

0.0, 

1.0, 

1.6 

54301, 

63.5, 

1.0, 

1.6 

54401, 

76.2, 

1.0, 

1.6 

55001, 

63.5, 

1.0, 

1.75 

55101, 

76.2, 

1.0, 

1.75 

55401> 

139.7, 

1.0, 

1.75 

59001, 

63.5, 

1.0, 

3.35 

59101, 

76.2, 

1.0, 

3.35 

59401, 

139.7, 

1.0, 

3.35 

54701, 

63.5, 

1.0, 

1.675 

54801, 

76.2, 

1.0, 

1.675 

NO,  MODEL  -  NO 


** 


*W3EN,  NSET-FBL 

1.4001.1000 
*lKaEM,  MSET-FBM 

301.4301.1000 
NSET-FBR 

401.4401.1000 
NSET-FTL 

5001.9001.1000 
*N6BN,  MSET-rtM 

5101.9101.1000 
*»»»,  NSET-PTR 

5401. 9401. 1000 
*mB»,  NSBT-PMIDDLE 
4701,  4801,  1 
*NE«1I,  NSEToOSL 

50001.54001.1000 
*mm,  MSBT-BBH 

50301. 54301. 1000 
*mm,  NSET-BBR 

50401.54401.1000 
KSST-BTL 

55001.59001.1000 
*110401,  NSET-BTM 

55101.59101.1000 
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♦NGEN,  NSET-BTR 
55401,59401,1000 
*HGEN,  NSET-BMIODLE 
54701,54801,  1 
** 

*NFILL, NSET-FRONT 

FBL, FBM,300 

FBM, FBR,100 
FTI.,FTM,100 
rm,  FTR,  300 
INFILL, NSET-BACK 

BBL,  BBM, 300 

BBM, BBR, 100 

BTL, BTM,100 

BTM, BTR,300 
♦NFILL 

FRONT, BACK, 5, 10000 
FMIDDI.E,BMIDDLE,  5, 10000 

■k* 

♦ELEMENT,  TYFE*K:3D8 

1,  1,  3,10003,10001,1001,1003,11003,11001 

151,  301,  302,10302,10301,1301,1302,11302,11301 

4001, 3001, 3003, 13003, 13001, 4001, 4003, 14003, 14001 
5001,5101, 5103, 15103, 15101, 6101, 6103, 16103, 16101 
6001, 6001, 6002, 16002, 16001, 7001,7002, 17002, 17001 
6101, 6101, 6103, 16103, 16101,7101,7103, 17103, 17101 
** 

♦ELGEN, ELSET-BOT 

1,  150,2, 1,3, 1000, 1000,5, 10000, 10000 

151,  100, 1, 1,  3, 1000, 1000, 5, 10000, 10000 

4001. 150. 2. 1.1.. . 5. 10000. 10000 
** 

♦ELGEN, ELSET-TOP 

5001. 150. 2. 1.1.. . 5. 10000. 10000 

6001. 100. 1. 1. 3. 1000. 1000. 5. 10000.10000 

6101. 150. 2. 1. 3. 1000. 1000. 5. 10000. 10000 
** 

**  DEFINE  ADHESIVE  ELEMENT  H2L12N 
** 

♦USER  ELEMENT, NODES-12 , TYPE-U5 , PROPERTIBS-lOO , COORDINATES-3 , VARIABLES-1 
1,  2,  3 

♦EUSMENT, TyPE-U5 

4701, 3301,3302, 13302, 13301, 4301, 4302, 14302, 14301, 4701, 4702, 14702, 14701 
4801,4701,4702,14702,14701,5001,5002,15002,15001,6001, 6002, 16002,16001 
*BL(^,  ELSET-ADHBOT 

4701. 100. 1. 1.1.. . 5. 10000. 10000 
♦BL6EN, ELSBT-ADHTOP 

4801. 100. 1. 1.1.. . 5. 10000. 10000 
** 

**  USER  DEFINED  SUBROUTINE; 

tk* 

♦USER  SUBROUTINE, INPUT-uel  report. f 
**  ~ 

**  ELEMENT  PROPERTIES 
** 

♦SOLID  SECTION, ELSET-TOP  , MATERIAL-MIDI 
♦MATERIAL,  NAME-MIDI 
♦ELASTIC,  TYPE-ISO 
69000.0,  0.32,  0.0 

♦SOLID  SECTION, ELSET-BOT  , MATERIAL-MID3 
♦MATERIAL,  NAME-MID3 
♦ELASTIC,  TYPE-ISO 
69000.0,  0.32,  0.0 

** 

♦♦  USER  DEFINED  ELEMENT  PROPERTY  LIST: 

** 

♦•  TOP  RON 
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itit 

*UEL  PROPERTY, ELSET-ADHTOP 
11.0,  1.0,  1.0 
1.0 

0.15,  0.0,  3000.0,  3000.0,  3000.0,  0.36,  0.36,  0.36 
1102.9412,  1102.9412,  1102.9412 
1.0 

0.4,  0.0,  69000.0,  69000.0,  69000.0,  0.32,  0.32,  0.32 

26136.3636,  26136.3636,  26136.3636 
** 

**  BOTTCM  ROW 
** 

*UEL  PROPERTY, ELSET-ADHBOT 

11.0,  1.0,  1.0 

1.0 

0.4,  0.0,  69000.0,  69000.0,  69000.0,  0.32,  0.32,  0,32 

26136.3636,  26136.3636,  26136.3636 

1.0 

0.15,  0.0,  3000.0,  3000.0,  3000.0,  0.36,  0.36,  0.36 

1102.9412,  1102.9412,  1102.9412 

*NSET,  NSET-I.,  GENERATE 

10001,  14001,  1000 

20001,  24001,  1000 

30001,  34001,  1000 

40001,  44001,  1000 

** 

*NSET,NSBT-LS1DE 

L,FBL,BBL 


*NSET,  NSET-ROI.Z.B,  GENERATE 


1, 

24, 

1 

10001, 

10024, 

1 

20001, 

20024, 

1 

30001, 

30024, 

1 

40001, 

40024, 

1 

50001, 

50024, 

1 

4001, 

4024, 

1 

14001, 

14024, 

1 

24001, 

24024, 

1 

34001, 

34024, 

1 

44001, 

44024, 

1 

54001, 

54024, 

1 

*NSET, NSET-ROLLE, GENERATE 

5378, 

5401, 

1 

15378, 

15401, 

1 

25378, 

25401, 

1 

35378, 

35401, 

1 

45378, 

45401, 

1 

55378, 

55401, 

1 

9378, 

9401, 

1 

19378, 

19401, 

1 

29378, 

29401, 

1 

39378, 

39401, 

1 

49378, 

49401, 

1 

59378, 

59401, 

1 

*elsbt 

,ELSET-: 

PULL 

5150, 

6250, 

7250, 

8250 

15150, 

16250, 

17250, 

18250 

25150, 

26250, 

27250, 

28250 

35150, 

36250, 

37250, 

38250 

45150, 

46250, 

47250, 

48250 

*ELSET,ELSET-ONE 

1 


**  BOUNDARY  CONDITIONS: 
** 

*BOUNDARY 
LSIDE,  1,  3 
ROLLS,  3 
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R0LI3,  3 

♦STEP, PERTURBATION 
•STATIC 
** 

**  LOAD  CASE  SPECIFICATION 
** 

•DLOAD,  OP*NEM 
POLL,  P4,  -93.75 
•NODE  PRINT 
U 

•EL  PRINT, ELSET-ONE 
MISES, 

•END  STEP 


ABAQUS  OUTPUT  FILE 


•PREPRINT,  ECHO  -  NO,  HISTORY  -  NO,  MODEL  -  NO 


AAAAAA 

BBBBBBBBB 

AAAAAA 

QQQQQQQQ 

U 

u 

SSSSSSSS 

A 

A 

B  B 

A 

A 

Q 

Q 

0 

u 

s 

A 

A 

B  B 

A 

A 

0 

Q 

u 

u 

S 

A 

A 

B  B 

A 

A 

Q 

Q 

u 

u 

s 

AAAAAAAAAA 

BBBBBBBBB 

AAAAAAAAAA 

Q 

Q 

U 

u 

SSSSSSSS 

A 

A 

B  B 

A 

A 

Q 

Q 

Q 

U 

u 

A 

A 

B  B 

A 

A 

Q 

C 

1  Q 

u 

u 

A 

A 

B  B 

A 

A 

Q 

Q  Q 

u 

u 

A 

A 

BBBBBBBBB 

A 

A 

QQQQQQQQ 

uuuuuuuu 

SSSSSSSS 

Q 

<l>  <l> 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

<t> 

<l>  <l> 

1  1 

<1> 

1 

<l> 

1 

<l> 

1 

<l> 

1 

<1> 

1 

1 

<l> 

1 

<l> 

1 

<l> 

1  <l> 

1 

<l> 

1 

1 

<l> 

<l> 

<1> 

<l> 

1  <l> 

1 

1 

1 

1 

1 

<l> 

<l> 

<l> 

<t>  1 

<l> 

1 

<l> 

<l> 

1 

<l> 

1 

<l> 

<l>  1 

<l> 

<l> 

<1> 

<l> 

<l> 

<l> 

) 

1 

<l>  <l> 

<l> 

<l> 

<t> 

<l> 

<1> 

1 

<l> 

1 

<!>  <1> 

<l> 

<l> 

<l> 

<l> 

<1> 

1 

<l> 

<l> 

<l>  <!> 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

<!> 

THIS 

PROGRAM 

HAS 

BEEN  DEVELOPED  1 

3Y 

HIBBITT,  1 

KARLSSON 

AND 

SORENSEN,  INC. 

1080  MAIN  STREET 
PANTOCKET,  R.l,  02860 

THIS  IS  A  PROPRIETARY  PROGRAM.  IT  MAY  ONLY  BE 
USED  UNDER  THE  TERMS  OF  THE  LICENSE  AGREEMENT 
BETWEEN  HIBBITT,  KARLSSON  t  SORENSEN,  INC. 

AND  ARMY  RESEARCH  LABORATORY. 


* 

★ 


***•*«**•***•*••* 

•  NOTICE  • 
••*••*•*•***«•••* 


* 

* 


THIS  IS  ABAQUS  VERSION  5.3. 


* 


* 


*  PLEASE  MAKE  SURE  YOU  ARE  USING  VERSION  5.3  MANUALS  * 

*  PLUS  THE  NOTES  ACCOWANYING  THIS  RELEASE.  THESE  NOTES  • 

*  CAM  BE  OBTAINED  BY  USING  THE  INFORMATION  OPTION  OH  THE  * 

*  ABAQUS  COMMAND  LINE.  * 

*  • 


««**«ft****«***«*******]r*****ir* 


(«TI(»iS  BEING  PROCESSED 


•HEADING 

3>0  SlIKLE-LAP  JOINT. 

*NOt» 

•HCXM,  NSBT-FBL 
•N^,  RSET-FBN 

•mm,  MSET«F»t 

•NGBSN,  RSBT-FTL 
•iMHUi,  NSBT-FTM 
•NCaSN,  NSBT-FTR 
•H^,  RSET-FNIDDLE 
•NOSH,  I^T-BBL 

•mat,  Rm««8M 

•H6BN,  MMT-BBR 
•von,  KMT-BTL 

•warn,  ii»T-BTM 
•mm,  N8BT-BTR 


100  H2L12N  ELEMENTS  ALONG  BONOLINE. 


<rt  w 


*HGEH,  NSET-BMIDDLE 
•NF1LL,NSET-FR0NT 


THE 

FOLLONING 

NODES 

WILL  BE 

USED  IN 

THE  NFILL 

GENERATION 

3-D 

S INGLE - 

LAf 

'  JOINT.  100  H2L12N  ELEMENTS  ALONG  BONDLINE. 

BOUND 

1 

1 

1001 

2001 

3001  4001 

BOUND 

2 

301 

1301 

2301 

3301  4301 

THE 

FOLLOWING 

NODES 

HILL  BE 

USED  IN 

THE  NFILL 

GENERATION 

BOUND 

1 

301 

1301 

2301 

3301  4301 

BOUND 

2 

401 

1401 

2401 

3401  4401 

THE 

FOLLOWING 

NODES 

HILL  BE 

USED  IN 

THE  MFILL 

GENERATION 

BOUND 

1 

5001 

6001 

7001 

8001  9001 

BOUND 

2 

5101 

6101 

7101 

8101  9101 

THE 

FOLLONING 

NODES 

WILL  BE 

USED  IN 

THE  NFILL 

GENERATION 

BOUND 

1 

5101 

6101 

7101 

8101  9101 

BOUND 

2 

5401 

6401 

7401 

8401  9401 

•MFILL, 

,  NSET-BACK 

THE 

FOLLOWING 

NODES 

HILL  BE 

USED  IN 

THE  NFILL 

GENERATION 

BOUND 

1 

50001 

51001 

52001 

53001  54001 

BOUND 

2 

50301 

51301 

52301 

53301  54301 

THE 

FOLLOWING 

NODES 

HILL  BE 

USED  IN 

THE  NFILL 

GENERATION 

BOUND 

1 

50301 

51301 

52301 

53301  54301 

BOUND 

2 

50401 

51401 

52401 

53401  54401 

THE 

FOLLOWING 

NODES 

WILL  BE 

USED  IN 

THE  NFILL 

GENERATION 

BOUND 

1 

55001 

56001 

57001 

58001  59001 

BOUND 

2 

55101 

56101 

57101 

58101  59101 

THE 

FOLLONING 

NODES 

NILL  BE 

USED  IN 

THE  NFILL 

GENERATION 

3-D 

SINGLE-LAP  JOINT.  100  H2L12N  ELEMENTS  ALONG  BONDLINE. 

BOUND 

1 

55101 

56101 

57101 

58101  59101 

♦MFILL 

BOUND 

2 

55401 

56401 

57401 

58401  59401 

THE 

FOLLONING 

NODES 

HILL  BE 

USED  IN 

THE  NFILL 

GENERATION 

BOUND 

1 

1 

2 

3 

4 

5 

6 

7 

8 

9 

11 

12 

13 

14 

15 

16 

17 

18 

19 

21 

22 

23 

24 

25 

26 

27 

28 

29 

9372 

9373 

9374 

9375 

9376 

9377 

9378 

9379 

9380 

9382 

9383 

9384 

9385 

9386 

9387 

9388 

9389 

9390 

9392 

9393 

9394 

9395 

9396 

9397 

9398 

9399 

9400 

BOUND 

2 

50001 

50002 

50003 

50004 

50005 

50006 

50007 

50008 

50009 

50011  • 

50012 

50013 

500J,4 

50015 

50016 

50017 

50018 

50019 

50021 

50022 

50023 

50024 

50025 

50026 

50027 

50028 

50029 

. 

59372 

59373 

59374 

59375 

59376 

59377 

59378 

59379 

59380 

59382 

59383 

59384 

59385 

59386 

59387 

59388 

59389 

59390 

101 

FOLLOWING  NODES 

59392 

WILL  BE 

59393 

USED  IN 

59394  59395  59396 

THE  NFILL  GENERATION 

59397 

59398 

59399 

59400 

BOUND  1 

4701 

4702 

4703 

4704 

4705 

4706 

4707 

4708 

4709 

4711 

4712 

4713 

4714 

4715 

4716 

4717 

4718 

4719 

4721 

4722 

4723 

4724 

4725 

4726 

4727 

4728 

4729 

4731 

4732 

4733 

4734 

4735 

4736 

4737 

4738 

4739 

4741 

4742 

4743 

4744 

4745 

4746 

4747 

4748 

4749 

4751 

4752 

4753 

4754 

4755 

4756 

4757 

4758 

4759 

4761 

4762 

4763 

4764 

4765 

4766 

4767 

4768 

4769 

4771 

4772 

4773 

4774 

4775 

4776 

4777 

4778 

4779 

4781 

4782 

4783 

4784 

4785 

4786 

4787 

4788 

4789 

4791 

4801 

4792 

4793 

4794 

4795 

4796 

4797 

4798 

4799 

BOUND  2 

54701 

54702 

54703 

54704 

54705 

54706 

54707 

54708 

54709 

54711 

54712 

54713 

54714 

54715 

54716 

54717 

54718 

54719 

54721 

54722 

54723 

54724 

54725 

54726 

54727 

54728 

54729 

54731 

54732 

54733 

54734 

54735 

54736 

54737 

54738 

54739 

54741 

54742 

54743 

54744 

54745 

54746 

54747 

54748 

54749 

54751 

54752 

54753 

54754 

54755 

54756 

54757 

54758 

54759 

64761 

54762 

54763 

54764 

54765 

54766 

54767 

54768 

54769 

54771 

54772 

54773 

54774 

54775 

54776 

54777 

54778 

54779 

54781 

54782 

54783 

54784 

54785 

54786 

-  54787 

54788 

54789 

•ELEIffiNT, 

54791 

54801 

TYPE-C3De 

54792 

54793 

54794 

54795 

54796 

54797 

54798 

54799 

*BL6EN,SLSPT-B0T 
*ELGEN, ELSET-TOP 

*USBR  EI.EMEMT,NOOES-12,TlfPE-OS,PROPERTIES-100,COORDmATES-3,  VARIABLES-1 
•ELEMENT, TTPE-U5 
•BLGEH, ELSET>AOHBOT 
•BLGEN,  ELSET-AOHTCff 
•NSET, NSET>L, GENERATE 
•NSET,HSET«LSIDE 
•NSET, NSBT>ROLLB, GENERATE 
•NSET, NSET«ROLL£, GENERATE 
•EL5BT,BL5ET«PDLL 
•ELSBT, BLSET-ONE 
•MATERIAL,  NAME-MIOl 
•ELASTIC,  TTPE-ISO 
•MATERIAL,  NAME>MID3 
••ELASTIC,  TTPE-ISO 

•OSSR  ELEMENT, NODES-12,TTPE»US,PROPERTIES-lOO,COORDINATES-3,VARIABLES-l 

•SOLID  SECTION, ELSET-TOF  , NATERIAL-MIDl 

•SOLID  SECTION, ELSET-BOT  ,MATERIAL-HID3 

•DEL  PROPERTY, ELSBT-AOPTOP 

•DEL  PR<»ERTY,BLSBT-AOHdOT 

•STEP , PERTORBATION 

•STATIC 

•OLOAD,  OP-NBH 

•EL  PRINT, ELSBT-ONE 

•END  STEP 

•BOUNDARY 

•STEP, PERTURBATION 

•STATIC 

•NODE  PRINT 

•END  STEP 

WAVEFRONT  MINIMIZATION 

HAVEPRONT  MINIMIZATION  METHOD  1  WILL  BE  USED. 

NUMKR  OF  NODES  ISCSfi 

Nai«»  OF  ELEMENTS  10000 

ORIGINAL  MAXIMUM  0.0. F  WAVEFRONT  ESTIMATED  AS  8592 
ORIGINAL  RMS  0.0. F  WAVEFRONT  ESTIMATED  AS  £967 


PERIPHERAL  DIAfBTER  IS  DEFINED  BY  NODES 

WAVEFRONT  OPTIMIZED  BY  CHOOSING 

MINIMUM  WAVEFRONT  OBTAINED  USING  METHOD  2 
•MAVBFIU3NT  MINIMIZATION,  NODES,  METHOD-2 
1,  5401 


1  5401 

1  AS  THE  STARTING  NODE 
USE 


TO  REDUCE  Tiffi  CPU  TIME  ON  SUBSEQUENT  JOBS  USING  THIS  SAME  l>ffiSH. 

PROBLEHSIZE 

WMNHt  OF  EUnSNTS  IS  10000 
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NUtffiER  OF  NODES  IS  15666 

■  NUMBER  OF  NODES  DEFINED  BY  THE  USER  15666 

NUMBER  OF  INTERNAL  NODES  GENERATED  BY  THE  PROGRAM  0 

TOTAL  NUMBER  OF  VARIABLES  IN  THE  MODEL  46998 

(DEGREES  OF  FREEDOM  PLUS  ANY  LAGRANGE  MULTIPLIER  VARIABLES) 
MAXIMUM  D.O.F.  WAVEFRONT  ESTIMATED  AS  273 

RMS  WAVEFRONT  ESTIMATED  AS  172 


FILE  SIZES  -  THESE  VALUES  ARE  IN  WORDS  AND  ARE  CONSERVATIVE  UPPER  BOUNDS 


UNIT 

LENGTH 

2 

8815647 

10 

2282000 

19 

3328000 

21 

3320000 

22 

3320000 

25 

2220000 

IF  THE  RESTART  FILE  IS  WRITTEN  ITS  LENGTH  WILL  BE  APPROXIMATELY 
3323232  WORDS  WRITTEN  IN  THE  PRE  PROGRAM 
PLUS  2772000  WORDS  WRITTEN  AT  THE  BEGINNING  OF  EACH  STEP 
PLUS  4134521  WORDS  FOR  EACH  INCREMENT  WRITTEN  TO  THE  RESTART  FILE 


ALLOCATBO  WORKSPACE  2002539 

*USBR  SUBROUTINE, IHPUT»u«l_rBporC . f 

END  OF  USER  INPUT  PROCESSING 

STEP  1  STATIC  ANALYSIS 


FIXED  Tllffi  INCREMENTS 

TIME  IKCRBISMT  IS  2.220E-16 

TIte  PERIOD  IS  2.220E-16 

THIS  IS  A  LINEAR  PERTURBATION  STEP. 

ALL  LOADS  ARB  DEFINED  AS  CHANGE  IN  LOAD  TO  THE  REFERENCE  STATE 


ELEMENT  ID  44900 


STRESS  OUTPUT  IN 

LOCAL  COORDINATES  FOR 

LAYER 

1 

RECOVERY 

POINTS 

STRESS  COMPONENTS 

Cl 

CJ 

CK 

SXX 

SYY 

SZZ 

SYZ 

SZX 

-1-0000 

-1.0000 

-1.0000 

.S46E>01 

.2458+01 

.506E+02 

-.6S2B+01 

.552E+02 

-1.0000 

-1.0000 

1.0000 

.485E^02 

.269E+02 

.463E+02 

.594E+01 

.411E+02 

•1.0000 

1.0000 

-1.0008 

.548E-^01 

.129E+01 

.418E+02 

-.193E+01 

.551E+02 

-1.0000 

1.0000 

1.0000 

.470E'<-02 

.2638+02 

.396E+02 

-.251E+01 

.439E+02 

1-0000 

-1.0000 

-1.0000 

.318E+02 

.4388+02 

.135E+03 

-.936E+01 

.678E+02 

1.0000 

-1.0000 

1.0000 

.743E+02 

.6298+02 

.119B+03 

-.926E+01 

.538E+02 

1.0800 

1.0000 

-1.0000 

.2698-^02 

.4088+02 

.1258+03 

.139E+02 

.6418+02 

1.0000 

1.0000 

1.0000 

.679E+02 

.605E+02 

.lllE+03 

.140E+02 

.530E+02 

.0000 

.0000 

.0000 

.3848+02 

.331E+02 

.836B+02 

.215E+01 

.5438+02 

-.S774 

-.5774 

-.5774 

.198E+02 

.1S8E+02 

.6S2E+02 

.270E+01 

.548E+02 

.5774 

-.5774 

-.5774 

.344B+02 

.388B+02 

.113E+03 

-.252E+01 

.617E+02 

-.5774 

.5774 

-.5774 

.190E+02 

.150E+02 

.6028+02 

.169E+01 

.547E+02 

.5774 

.5774 

-.5774 

.320E+02 

.374E+02 

.1078+03 

.702E+01 

.604E+02 

-.5774 

-.5774 

.5774 

.444B+02 

.294E+02 

.616E+02 

.245E+01 

.471E+02 

.5774 

-.5774 

.5774 

.5888+02 

.S06E+02 

.1058+03 

-.255E+01 

.539E+02 

-.5774 

.5774 

.5774 

.432E+02 

.287E+02 

.573E+02 

.143E+01 

.479E+02 

.5774 

.5774 

.5774 

.5598+02 

.4938+02 

.1008+03 

.699B+01 

.536E+02 

STRAIN  OOtPUT  IN 

LOCAL  CO(»OINATES  FOR 

LAYER 

1 

RECOVERY 

POINTS 

STRAIN  COMPONENTS 

Cl 

CJ 

at 

8XX 

EYY 

EZZ 

EYZ 

EZX 

-1.0000 

-1.0000 

-1.0000 

-.773E-02 

-.558E-02 

.9898-02 

-.229E-02 

.336E-01 

-1.0000 

-1.8000 

1.0000 

.51SE-02 

-.2028-02 

.989B-02 

-.3338-02 

.461E-01 

-1.0000 

1.0000 

-1.0000 

-.713E-02 

-.5588-02 

.7108-02 

.721E-02 

.333E-01 

-1.0000 

1.0000 

1.0008 

.4918-02 

-.2028-02 

.710E-02 

.616E-02 

.462E-01 

1.0000 

-1.0000 

-1.0000 

-.773E-02 

-.5078-02 

.310B-01 

-.178E-02 

.554E-01 

1.0000 

-1.0000 

1.0000 

.515E-02 

-.178E-02 

.310E-01 

-.257E-02 

.679E-01 

i.oeeo 

1.0000 

-1.0800 

-.713E-02 

-.5078-02  ■ 

.28%-01 

.698E-02 

.537E-01 

1.0000 

1.0000 

1.0000 

.4918-02 

-.1788-02 

.289E-01 

.620B-02 

.6668-01 

.0000 

.0000 

.0000 

-.1208-02 

-.3618-02 

.1928-01 

.207E-02 

.5048-01 

-.5774 

-.5774 

-.5774 

-.4928-02 

-.473E-02 

.138E-01 

-.416E-03 

.407E-01 

.5774 

-.5774 

-.5774 

-.492E-02 

-.4478-02 

.2618-01 

-.181E-03 

.532E-01 

-.5774 

.5774 

-.5774 

-.4678-02 

-.473E-02 

.123E-01 

.4988-02 

.405B-01 

.5774 

.5774 

-.5774  • 

-.467B-02 

-.447E-02 

.24SB-01 

.497E-02 

.524E-01 
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SXY 

.165E+01 

.119E+01 

.235E+01 

.197E+01 

.338E+01 

.254E+01 

.626B-*-00 

.eiSE-t-OO 

.399E+00 

.109E+01 

.204E+01 

.112E+01 

.164E+00 

.884E>00 

.171E+01 

.104E+01 

.217E+00 


EXY 

.126B-03 

.149E-03 

.673E-03 

.5I9E-03 

.254E-03 

.228E-Q6 

.105E-02 

,370E-03 

.362E-03 

.138E-03 

.294E-03 

.S48E-03 

.703E-03 


-.5774 

-.5774 

.5774 

.241E-02 

-.271E-02 

.138E-01 

-.988E-03 

.480E-01 

.180E-03 

.5774 

-.5774 

.5774 

.241E-02 

-.254E-02 

.261E-01 

-.667E-03 

.604E-01 

‘ .159E-03 

-.5774 

.5774 

.5774 

.238E-02 

-.271E-02 

.123E-01 

.440E-0Z 

.479E-0X 

.446E-03 

.5774 

,5774 

.5774 

.238E-02 

-.254E-02 

.248E-01 

.448E-02 

.598E-01 

.425E-03 

STRESS  OUTPUT  IN  LOCIU.  COORDINATES  FOR 

LAYER 

2 

RECOVERY 

POINTS 

STRESS  COMPONENTS 

Cl 

CJ 

CK 

SXX 

SYY 

SZZ 

SYZ 

szx 

SXY 

-1.0000 

-1.0000 

-1.0000 

.378E+03 

-.663E+01 

.441E+02 

.564E+01 

.341E+02 

.443E+0X 

-1.0000 

-1.0000 

1.0000 

.190E+03 

.285E>01 

.211E'f02 

.96eE+01 

-.150E+02 

-.X58E+0X 

-1.0000 

1.0000 

-1.0000 

.360E+03 

-.905E+01 

.385E+02 

-.281E+01 

.384E'f02 

.885E+01 

-1.0000 

1.0000 

1.0000 

.186E+03 

.247E+01 

,270E+02 

.121E+01 

-.997E+0X 

-.369E+0X 

1.0000 

-1.0000 

-1,0000 

.391E+03 

.334E+02 

.lllE+03 

-.921E+01 

.4e8E-f02 

.469E+0X 

1.0000 

-1.0000 

1.0000 

.207E+03 

-.271E+01 

.249E+02 

-.108E+02 

-.229E+0X 

-.26XE+0X 

1.0000 

1.0000 

-1.0000 

.372E+03 

.338E+02 

.104E+03 

,140E+02 

.474E+02 

.9X2E+01 

1.0000 

1.0000 

1,0000 

.203E+03 

-.284E+00 

.292E4-02 

.124E+02 

-.946E+00 

-.472E+01 

.0000 

.0000 

.0000 

.286E+03 

.674E+01 

.500E+02 

.251E+01 

.X73E+02 

•laXE+OX 

-.5774 

-.5774 

-.5774 

.338E+03 

.151E*-01 

,499E+02 

.273E+01 

.272E+02 

.380E+0X 

.5774 

-.5774 

-.5774 

.346E+03 

.194E+02 

.807E+02 

-.266E+01 

.34XE+02 

.379E+01 

-.5774 

.5774 

-.5774 

.329E+03 

.701E+00 

.479E+02 

.172E+01 

.293E+02 

.556E+01 

,5774 

.5774 

-.5774 

.337E+03 

.195E+02 

.781E+02 

.687E+01 

.349E+02 

.555E+01 

-.5774 

-.5774 

.5774 

.232E+03 

.168E+01 

.303E+02 

.437E+01 

-.105E+0X 

-.623E+00 

.5774 

-.5774 

.5774 

.241E+03 

.436E+01 

.400E+02 

-.290E+01 

.581E+01 

-.106E+01 

-.5774 

.5774 

.5774 

.228E-t-03 

.154E+01 

.321E+02 

.335E+01 

.129E+01 

-.I04E+01 

.5774 

.5774 

.5774 

.237E+03 

.5nE4-01 

.412E+02 

.6e4EH-01 

.695E+01 

-.X48E+0X 

STRAIir  OUTPUT  IN  : 

LOCAL  COORDINATES  FOR 

LAYER 

2 

RECOVERY 

POINTS 

STRAIN  COMPONENTS 

Cl 

CJ 

CK 

EXX 

EYY 

EZZ 

EYZ 

EZK 

EXY 

-1.0000 

-1.0000 

-1.0000 

.51SE-02 

-.202E-02 

-.600E-03 

-.29SE-03 

.921E-03 

.X49E-03 

-1.0000 

-1.0000 

1.0000 

.277E-02 

-.945E-03 

-.600E-03 

-.227E-04 

.552E-03 

.2eeE-04 

-1.0000 

1.0000 

-1.0000 

.491E-02 

-.202E-02 

-.463E-03 

.240E-03 

.125E-02 

.519E-03 

-1.0000 

1.0000 

1.0000 

.268E-a2 

-.945E-03 

-.463E-03 

.513E-03 

.5X9E-03 

-.212E-03 

1.0000 

-1.0000 

-1.0000 

.515E-02 

-.n8E-02 

-.716E-03 

-.1S3E-03 

.X65E-03 

-.228E-06 

1.0000 

-1.0000 

1.0000 

.277E-02 

-.llOE-02 

-.716E-03 

-.113E-03 

-.203E-03 

-.287E-04 

1.0000 

1.0000 

-1.0000 

.491E-02 

-.178E-02 

-.696E-03 

.188E-03 

.544E-03 

.370E-03 

1.0000 

1.0000 

l.COOO 

.268E-02 

-.llOE-02 

-.696E-03 

.229E-03 

-.189E-03 

-.268E-03 

.0000 

.0000 

.0000 

.388E-02 

-.146E-02 

-.619E-03 

.732E-04 

.445E-03 

.693E-04 

-.5774 

-.5774 

-.5774 

.460E-02 

-.17fiE-02 

-.601E-03 

-.114E-03 

.739E-03 

.146E-03 

.5774 

-.5774 

-.5774 

.460B-02 

-.167E-02 

-.882E-03 

-.836E-04 

.309E-03 

.720E-04 

-.5774 

.5774 

-.5774 

.448B-02 

-,176E-02 

-.536E-03 

.172E-03 

.892E-03 

.286E-03 

.5774 

.5774 

-.5774 

.448E-02 

-.167E-02 

-.8S6E-03 

.137E-03 

.477E-03 

.211E-03 

-.5774 

-.5774 

.5774 

.325E-02 

-.119E-02 

-.601E-03 

.15SE-04 

.482E-03 

.132E-04 

.5774 

-.5774 

.5774 

.325E-02 

-.123E-02 

-.682E-03 

-.319E-04 

.515E-04 

-,301E-04 

-.5774 

.5774 

.5774 

.318E-02 

-.119E-02 

-.536E-03 

.301E-03 

.513E-03 

-.504E-04 

.5774 

.5774 

.5774 

.318E-02 

-.123E-02 

-.656E-03 

.189E-03 

.983E-04 

-.938E-04 

ELEMENT 

ID  34900 

STRESS  OUTPUT  IN 

LOCAL  COORDINATES  FOR 

LAYER 

1 

RECOVERY 

POINTS 

STRESS  COMPONENTS 

Cl 

CJ 

CK 

SXX 

SYY 

SZZ 

SYZ 

SZX 

SXY 

-1.0000 

-1.0000 

-1.0000 

.115E+02 

.225E+02 

.575E+02 

.488E+01 

.538E+02 

.300E+01 

-1.0000 

-1.0000 

1.0000 

.538E+02 

.337E+02 

.530E+02 

,641E+01 

.411E+02 

.203E+0X 

-1.0000 

1.0000 

-1.0000 

.132E+02 

.19SE>02 

.S62E+02 

-.991S+01 

.526E+02 

-.162E+01 

-1.0000 

1.0000 

1.0000 

.S17E+02 

.306E+a2 

.513E+02 

-.838E+01 

.387E+02 

-.116E+01 

1.0000 

-1.0000 

-1.0000 

.360E+02 

.604E+02 

.141E+03 

-.102E+02 

.708E+02 

.235E+01 

1.0000 

-1.0000 

1.0000 

.773B+02 

.675E+02 

.125E+03 

-.958E+01 

.581E+02 

.X40E+01 

1.0000 

1.0000 

-1.0000 

.398B>02 

.597E+02 

.141E+03 

.639E+01 

.703E+02 

-.227E+0i 

1.0000 

1.0000 

1.0000 

.774E+02 

. 668E+02 

.124E-*^03 

.703E+01 

.563E+02 

-.X80E+01 

.0000 

.0000 

.0000 

.451E+02 

,451E+02 

.936E+02 

-.167E+01 

.552E+02 

.241E+00 

-.5774 

-.5774 

-.5774 

.259E+02 

.322E+02 

.734E+02 

.249E+00 

.544E+02 

.175E+01 

.5774 

-.5774 

-.5774 

.401E+02 

.S38B+02 

.1208+03 

-.474E+0X 

.643E+02 

.137E+01 

-.5774 

.5774 

-.5774 

.267E+02 

.307E+02 

.727E+02 

-.446E+01 

.537E+02 

-.745E+00 

.5774 

.5774 

-.5774 

.416B4'02 

.531E+02 

.120E+03 

.lOlE+01 

.638E+02 

-.112E+01 

-.5774 

-.5774 

.5774 

.497E+02 

.JSIE^-OI 

.693E+02 

.102E+01 

.4698+02 

.X36E+0X 

.5774 

-.5774 

.5774 

.631^*02 

.584E4'G2 

.112E+03 

-.427E+01 

.5688+02 

.994E+00 

-.5774 

.5774 

.5774 

.492E>02 

.685E+02 

-.368B+01 

.458E+02 

-.654E+00 

.5774 

.5774 

.5774 

.fi39E+02 

,577e+02 

.112E+03 

,149E+01 

.5S9E+02 

-.102" +01 

STRAIN  CWITPUT  IN 

LOCAL  COORDINATES  FOR 

LAYER 

X 

RECOVIQ4Y 

POINTS 

STRAIN  COMPONENTS 

ci 

CJ 

CK 

EXX 

EYY 

EZZ 

EYZ 

EZX 

EXY 

-liOOOO 

-1.0000 

-1.0000 

-.896E-02' 

-.131E-02 

.979E-02 

-.114E-02 

.337E-01 

.416E-04 

-1-0800 

-1.0000 

1.0000 

.513E-02 

-.1B8E-02 

.979E-02 

-.lllE-02 

.463E-01 

.625E-04 

-1.0000 

1.0000 

-1.0000 

-.773E-02 

-.131E-02 

.989E-02 

-.266E-02 

.336E-0X 

-.158E-03 

-1.0000 

1.0000 

1.0000 

.515B-02 

-.188B-02 

.989B-02 

-.262E-02 

.461E-0X 

.138E-03 

1.0000 

-1.0000 

-1.0000 

-.89CE-02 

-.144E-02 

.312E-01 

-.102E-02 

.575E-01 

.820E-03 

1.0000 

-l.OOOO 

1.0000 

.513E-02 

-.183E-02 

.312E-01 

-.lllE-02 

.702E-01 

.753E-04 

i.eeoo 

1.0000 

-1.0000 

-.773E-02 

-.144E-02 

.310E-01 

-.207E-02 

.554E-01 

.621E-03 
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1.0000 

1.0000 

1.0000 

.515E-02 

-.183E-02 

.310E-01 

-.216E-02 

.679E-01 

.151E-03 

.0000 

.0000 

.0000 

-.160E-02 

-.161E-02 

.205E-01 

-.174E-02 

.513E-01 

.219E-03 

-.5774 

-.5774 

-.5774 

-.577E-02 

-.145E-02 

.143E-01 

-.142E-02 

.413E-01 

.146E-03 

.5774 

-.5774 

-.5774 

-.577E-02 

-.150E-02 

.267E-01 

-.130E-02 

.548E-01 

.503E-03 

-.5774 

.5774 

-.5774 

-.521E-02 

-.145E-02 

.143E-01 

-.223E-02 

.410E-01 

.647E-04 

.5774 

.5774 

-.5774 

-.521E-02 

-.150E-02 

.266E-01 

-.197E-02 

.538E-01 

.421E-03 

-.5774 

-.5774 

.5774 

.221E-02 

-.n5E-02 

.143E-01 

-.141E-02 

.48fiE-01 

.987E-04 

.5774 

-.5774 

,5774 

.221E-02 

-.175E-02 

.267E-01 

-.134E-02 

.621E-01 

.200E-03 

-.5774 

.5774 

,5774 

.237E-02 

-.175E-02 

.143E-01 

-,223E-02 

.482E-01 

.109E-03 

.5774 

.5774 

.5774 

.237E-02 

-.175E-02 

.2e££-01 

-.200E-02 

.610E-01 

.209E--03 

STRESS  OUTPUT  IN 

LOCAL  COORDINATES  FOR 

LAYER 

2 

RECOVERY 

POINTS 

STRESS  COMPONENTS 

Cl 

CJ 

CK 

sxx 

SYY 

SZZ 

SYZ 

SZX 

SXY 

-1.0000 

-1.0000 

-1.0000 

.380E+03 

.899E+01 

.507R402 

.718E401 

.347E402 

.372E401 

-l.OOOO 

-1.0000 

1.0000 

.194B+03 

-.278E+01 

.268E402 

.123E+02 

-.152E402 

-.130E4Q1 

-1.0000 

1.0000 

-1.0000 

.380E+03 

.709E+01 

.488B402 

-.761E401 

.317E+02 

.228E401 

-1.0000 

1.0000 

1.0000 

.190E+03 

-.SOOE+01 

.228E402 

-.247E401 

-.175E402 

-.288E400 

1.0000 

-1.0000 

-1.0000 

.397E+03 

.385E+02 

.  inE403 

-.926E401 

.517E402 

.329E401 

1.0000 

-1.0000 

1.0000 

.209E+03 

-.768E400 

.299E402 

-.558E401 

.180E401 

-.153E^01 

1.0000 

1.0000 

-1.0000 

.397E+03 

.373E402 

.116E403 

.735E+01 

.494E402 

.186E401 

1.0000 

1.0000 

1.0000 

.20SE+03 

-.225E+01 

.270E402 

.110E402 

.202E+00 

-.516E400 

.0000 

.0000 

.0000 

.294E+03 

.10 IE 402 

.548E402 

.16.’E401 

.173E402 

.939E400 

-.5774 

-.5774 

-.5774 

.344E+03 

.111E402 

.563E402 

.  j00E401 

.2723402 

.238E401 

.5774 

-.5774 

-.5774 

.353E+03 

.249E402 

.868B402 

-.2838401 

.371E402 

.216E401 

-.5774 

.5774 

-.5774 

.344E-f03 

.101E402 

.551B402 

-.171E401 

,256E402 

,185E401 

.5774 

.5774 

-.5774 

.353E+03 

.241E402 

.8e0E402 

.292E401 

.357E402 

.163E401 

-.5774 

-.5774 

.5774 

.23eE>03 

.937E400 

.346E402 

.579E401 

-.153E401 

-.19SE400 

.5774 

-.5774 

.5774 

.245E+03 

.555E401 

.442E402 

-.531E400 

.836E401 

-,350E400 

-.5774 

.5774 

.5774 

.234E+03 

-.214E400 

.327E402 

.109E401 

-.286E401 

.929E-01 

.5774 

.5774 

.5774 

.243E+03 

.4e4E401 

.426E402 

.523E401 

,726E401 

-.630E-01 

STRAIN  OUTPUT  IN 

LOCAL  COORDINATES  FOR 

LAYER 

2 

RECOVERY 

POINTS 

STRAIN  COMPONENTS 

Cl 

CJ 

CK 

EXX 

EYY 

EZZ 

EYE 

EZX 

EXY 

-1.0000 

-1.0000 

-1.0000 

.S13E-02 

-,188E-02 

-.534E-03 

.727E-05 

.111E-02 

.625E-04 

-1.0000 

-1.0000 

1.0000 

.280E-02 

-.106E-02 

-.534E-03 

-.124E-03 

.572E-03 

.167E-04 

-1,0000 

1.0000 

-1.0000 

.515E-02 

-.X88E-02 

-.600E-03 

.414E-03 

.921E-03 

.138E-03 

-1.0000 

1.0000 

1.0000 

.277E-02 

-.106E-O2 

-.600E-03 

.283E-03 

.552E-03 

-.6S5E-04 

1.0000 

-1.0000 

-1.0000 

.513E-02 

-.183E-02 

-.703E-03 

-.103E-03 

.367E-03 

.753E-04 

1.0000 

-1.0000 

1.0000 

.280E-02 

-.112E-02 

-.703E-03 

-.130E-03 

-.166E-02 

-.418E-05 

1.0000 

1.0000 

-1,0000 

.515E-02 

-.183E-02 

-,7ieE-03 

.254E-03 

.165B-03 

,151E-03 

1.0000 

1.0000 

1.0000 

.277E-02 

-.112E-02 

-.716E-03 

.227E-03 

-.203E-03 

-.864E-04 

.0000 

.0000 

.0000 

.396E-02 

-,147E-02 

-.638E-03 

.104E-03 

.414E-03 

.359E-04 

-.5774 

-.5774 

-.5774 

.464E-02 

-.170E-02 

-.581E-03 

.447E-04 

.R04E-03 

.630E-04 

.5774 

-.5774 

-.5774 

.464E-02 

-.168E-02 

-.673E-03 

-.136E-04 

.376E-03 

.fi62E-04 

-.5774 

,5774 

-.5774 

.464E-02 

-.170E-02 

-.613E-03 

.274E-03 

.716E-03 

.873E-04 

.5774 

.5774 

-.5774 

.464E-02 

-.168E-02 

-.687E-03 

.200E-03 

.281E-03 

.906E-04 

-.5774 

-.5774 

.5774 

.329E-02 

-.124E-02 

-.581E-03 

-.I81E-04 

.517E-03 

.132E-04 

.5774 

-.5774 

.5774 

.329E-02 

-.126E-02 

-.673E-03 

-  05E-04 

.88XE-04 

.521E-05 

-.5774 

.5774 

.5774 

.328E-02 

-.124E-02 

-,613E-03 

.211E-03 

.483E-03 

-.151E-04 

.5774 

.5774 

.5774 

.328E-02 

-.126E-02 

-.687E-03 

.172E-03 

,487E-04 

-.230E-04 

EtEMENT  ID  14701 


STAESS  OUTPUT  IN  LOCAL  COORDINATES  FOR 


LAYER  1 


RECOVERY  POINTS  STRESS  COMPONENTi 


Cl 

CJ 

CK 

SXX 

SYY 

SZZ 

SYZ 

SZX 

SXY 

-l.OOOO 

-1.0000 

-1.0000 

.205E403 

-.225E401 

.270E402 

.110E402 

.202E400 

-.516E400 

-1.0000 

-1.0000 

1.0000 

.397E403 

.373E402 

.116E403 

.735E401 

.494E402 

.•'76E401 

-1.0000 

1.0000 

-1.0000 

.209E403 

-.7688400 

.299E402 

-.558E401 

.180E401 

-.153E401 

-1.0000 

1.0000 

1.0000 

.397E403 

.385E402 

.117E403 

-.926E401 

.517E402 

.329E401 

1.0000 

-1.0000 

-1,0000 

.190E403 

-.500E401 

.2288402 

-.2478401 

-.175E402 

-.2S8E400 

l.OOOO 

-1.0000 

1.0000 

.380E403 

.7Q9E401 

.488E402 

-.761E401 

.317E402 

.228E401 

1.0000 

1.0000 

-1.0000 

.194E403 

-.278E401 

.268E402 

.123E402 

-.1528402 

-.130E401 

1.0000 

1.0000 

1.0000 

.380B403 

.899E401 

.507E402 

.718E401 

,3478402 

.372E401 

.0000 

.0000 

.0000 

.294E403 

.1018402 

.S48E402 

.162E401 

.171E402 

.939E400 

-.5774 

-.5774 

-.5774 

.243E403 

.464E401 

.426B402 

.523E401 

.726E401 

-.630E-01 

.5774 

-.5774 

-.5774 

.234E403 

-.214E400 

.327E402 

.109E401 

-,286E4Q1 

.929E-01 

-.5774 

.5774 

-.5774 

,2458403 

,5558401 

.442E402 

-.531E400 

.836E401 

-.3508400 

.5774 

.5774 

-.5774 

.238B403 

.937E400 

.346E402 

.579E401 

-.153E401 

-.195E400 

-.5774 

-.5774 

.5774 

.353E403 

.241E402 

.860E402 

.292E401 

.357E402 

.163E401 

.5774 

-.5774 

.5774 

.344E403 

.101E402 

.551E402 

-.171E401 

.2568402 

.18SE401 

-.5774 

.5774 

-5774 

.3S3E403 

.249E4C2 

.868B402 

-.2838401 

.371E402 

.216E401 

.5774 

.5774 

.5774 

.344E403 

.111E402 

.563E402 

.300E401 

.272E402 

.238E401 
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STKAIH  OUTPUT  IH  LOCAL  COORDINATES  FOR 


LAYER 


1 


RECOVERY  POINTS  STRAIN  COMPONENTS 


CI 

CJ 

CK 

EXX 

EYY 

EZZ 

EYZ 

EZX 

EXY 

-1.0000 

-1.0000 

-l.OOOO 

.277E-02 

-.112E-02 

-.716E-Q3 

.227E-03 

-.203E-03 

-.8S4E-04 

-l.OOOO 

-l.OOOO 

1.0000 

.515E-02 

-.183E-02 

-.716E-03 

.254E-03 

. 165E-03 

.151E-03 

-1.0000 

1.0000 

-1.0000 

.280E-02 

-.112E-02 

-.703E-03 

-.130E-03 

-.166E-03 

-.418E-05 

-1.0000 

1.0000 

1.0000 

.513E-02 

-.183E-02 

-.703E-03 

-.103E-03 

.367E-03 

.753E-04 

1.0000 

-l.OOOO 

-l.OOOO 

.277E-02 

-.lOSE-02 

-.500E-03 

.283E-03 

.552E-03 

-.6SSE-04 

1.0000 

-1.0000 

1.0000 

.515E-02 

-.188E-02 

-.600E-03 

.414E-03 

.921E-03 

.X38E-03 

1.0000 

1.0000 

-1.0000 

.280E-02 

-.106E-02 

-.534E-03 

-.124E-03 

.572E-03 

.167E-04 

1.0000 

1.0000 

1.0000 

.513E-02 

-.188E-02 

-.534E-03 

.727E-05 

.lUE-02 

.625E-04 

.0000 

.0000 

.0000 

.396E-02 

-.147E-02 

-.638E-03 

.104E-03 

.414E-03 

.359E-04 

-.5774 

-.5774 

-.5774 

.328E-02 

-.126E-02 

-.687E-03 

.172E-03 

.487E-04 

-.230E-04 

.5774 

-.5774 

-.5774 

.328B-02 

-.124E-02 

-.613B-03 

.211E-03 

.483E-03 

-.l5iE-04 

-.5774 

.5774 

-.5774 

.329E-02 

-,126E-02 

-.S73E-03 

-.405E-04 

.881E-04 

.521E-05 

.5774 

.5774 

-.5774 

.329E-02 

-.124E-02 

-.581E-03 

-.181E-04 

.517E-03 

.132E-04 

-.5774 

-.5774 

.5774 

.464E-02 

-.1S8E-02 

-.687E-03 

.200E-03 

.281E-03 

.90$E-04 

.5“74 

-.5774 

.5774 

.464E-02 

-.nOE-02 

-.613E-03 

.274E-03 

.716E-03 

.873B-04 

-.5774 

.5774 

.5774 

.464E-02 

-.168E-02 

-.673E-03 

-.126E-04 

.376E-03 

.662E-04 

.5774 

.5774 

.5774 

.464E-02 

-.170E-02 

-.581E-03 

.447E-04 

.804E-03 

.630E-04 

STRESS  OUTPUT  IN 

LOCAL  COORDINATES  FOR 

LAYER 

2 

RECOVERY 

POINTS 

STRESS  COW>ONENTS 

CI 

CJ 

CK 

SXX 

SYY 

SZZ 

SYZ 

szx 

SXY 

-1.0000 

-1.0000 

-l.OOOO 

.774E+02 

.688E402 

.124E+03 

.703E+01 

.563E+02 

-.180E+01 

-1.0000 

-1.0000 

1.0000 

.398E+02 

.597E+Q2 

.141E+03 

.639E+01 

.703E+02 

-.227E*01 

-1.0000 

1.0000 

-1.0000 

.773E+02 

.675E402 

.125E+03 

-.958E+01 

.581E+02 

.140E+01 

-1.0000 

1.0000 

1.0000 

.360E-f02 

.604E+02 

.141E+03 

-.102E+02 

.708E+02 

.235E+01 

1.0000 

-1.0000 

-l.OOOO 

.517E+02 

.306E+02 

.513E+02 

-.838E1-01 

.387E+02 

-.116E+01 

1.0000 

-l.OOOO 

1.0000 

.132E+02 

.195E+02 

.5S2E402 

-.991E401 

,526E-t-02 

-.162E+01 

1.0000 

1.0000 

-l.OOOO 

.538E+02 

.337E+02 

.530E+02 

.641E+01 

.411E+02 

.203E401 

1.0000 

1.0000 

l.OOCO 

.llSE+02 

.225E+02 

.575E+02 

.488E401 

.538E+02 

.300E401 

.0000 

.0000 

.0000 

.451E>02 

.451B402 

.936E402 

-.167E+01 

.552E+02 

.241E+00 

-.5774 

-.5774 

-.5774 

.639E+02 

.577E+02 

.112E+03 

.149E+01 

.559E+02 

-.102E+01 

.5774 

-.5774 

-.5774 

.492E>02 

.366E+02 

.885B402 

-.368E+01 

.458E402 

-.654E+00 

-.5774 

.5774 

-.5774 

.637E+02 

.S84E4-02 

.112E403 

'.427E+01 

.568E+02 

.994E+00 

.5774 

.5774 

-.5774 

.497E+02 

.381E+02 

.(93B402 

.102E+01 

.489Ef02 

.136E401 

-.5774 

-.5774 

.5774 

.416E402 

.S31Bt02 

.120E+03 

.lOlE+01 

.S38E+02 

-.112E+01 

.5774 

-.5774 

.5774 

.26784^02 

.307E+02 

.727E+02 

-.44CE+01 

.537E402 

-.745E+00 

-.5774 

.5774 

.5774 

.401E+02 

.538E+02 

.120B403 

-.474E+01 

.643E+02 

.137E+01 

.5774 

.5774 

.5774 

.259E+02 

.322E402 

.734E+02 

.249E400 

.544E402 

.175E+01 

STRAIN  OUTPUT  IN 

LOCAL  COORDINATES  FOR 

LATER 

2 

RECOVERY 

POINTS 

STRAIN  COtVONENTS 

CI 

CJ 

CK 

EXX 

EYY 

EZZ 

EYZ 

EZX 

EXY 

-1.0000 

-1.0000 

-1.0000 

.515E-02 

-.183B-02 

.3ioe-oi 

-.216E-02 

.679E-01 

.151E-03 

-1.0000 

-1.0000 

1.0000 

-.773E-02 

-.144E-02 

.310E-01 

-.207E-02 

.554E-01 

.621E-03 

-1.0000 

1.0000 

-1.0000 

.513E-02 

-.183E-02 

.312E-01 

-.lllE-02 

.702E-01 

.753E-04 

-1.0000 

1.0000 

1.0000 

-.896E-02 

-.144E-02 

.312E-01 

-.102E-02 

.575E-01 

.820E-03 

1.0000 

-1.0000 

-1.0000 

.515E-0’’ 

-.188E-02 

.989E-02 

-.262E-02 

.461E'01 

.138E-03 

1.0000 

-1.0000 

1.0000 

-.773E-02 

-.131E-02 

.989E-02 

-.266E-02 

.336E-01 

-.158E-03 

1.0000 

1.0000 

-1.0000 

.513E-02 

-.188E-02 

. 979E-02 

-.lllE-02 

.463E-01 

.625E-04 

1.0000 

1.0000 

1.0000 

-.896B-02 

-.131E-02 

.979E-02 

-.114E-02 

.337E-01 

.4ieE-04 

.0000 

.0000 

.0000 

-.160E-02 

-.161E-02 

.205E-01 

-.174E-02 

.513E-01 

.219E-03 

-.5774 

-.5774 

-.5774 

.237E-02 

-.175E-02 

.266B-01 

-.200E-02 

.610E-01 

.209E-03 

.5774 

-.5774 

-.5774 

.237E-02 

-.175E-02 

.143E-01 

-.223E-02 

.482E-0I 

.109E-03 

-.5774 

.5774 

-.5774 

.221E-02 

-.175E-02 

.267B-01 

-.134E-02 

.621E-01 

.200E-03 

.5774 

.5774 

-.5774 

.221E-02 

-.175E-02 

.143E-01 

-.141E-02 

.486E-01 

.987E-04 

-.5774 

-.5774 

.5774 

-.521E-02 

-.150E-02 

.268E-01 

-.197E-02 

.538E-01 

.421E-03 

.5774 

-.5774 

.5774 

-.521E-02 

-.l<5E-02 

.143E-01 

-.223E-02 

.410E-01 

.647E-04 

-.5774 

.5774 

.5774 

-.S77E-02 

-.150E-02 

.267E-01 

-.130E-02 

.548E-01 

.503E-03 

.5774 

.5774 

.5774 

-.577E-02 

-.145E-02 

.143E-01 

-.142E-02 

.413E-01 

.146E-03 

ELEMENT 

ID  4701 

STnsS  OUTPUT  IN 

LOCAL  COCNtDINATES  FOR 

LAYER 

1 

lacOVERY 

POINTS 

STRESS  COMPONENTS 

CI 

CJ 

CK 

SXX 

SYY 

SZZ 

SYZ 

SZX 

SXY 

-1.0000 

-1.0000 

-1.0000 

.203E403 

-.284E400 

.292E402 

.124E+02 

-.946E400 

-.472E+01 

-1.0000 

-1.0000 

1.0000 

.372E+03 

.338B402 

.104E403 

.140E+02 

.474E+02 

.912E401 

-1.0000 

1.0000 

-1,0000 

.207E+03 

-.271E+01 

.249E+02 

-.108E+02 

-.229E+01 

-.261E401 

-1.0000 

1.0000 

1.0000 

.391E+03 

.334B402 

.lllE+03 

-.92iE4-01 

.4688402 

.469E401 

1.0000 

-1.0000 

-1,0000 

.186B4-03 

.247E+01 

.270E402 

.121E+01 

-.997E+01 

-.369B401 

1.0000 

-1.0000 

1.0000 

.360B>03 

-.905E+01 

.385E402 

-.281E+0i 

.384E402 

.885B401 

1.0000 

1.0000 

-1.0000 

.190E4-03 

.28SE4'01 

.211E+02 

.9C6E401 

-.150E+02 

-.158B401 

1 .0000 

1.0000 

1.0000 

.37SE403 

-.603E401 

.441E+02 

.564E401 

.341E+02 

.443E401 

.0000 

.0000 

.0000 

.286B4-03 

.674E+01 

.S00B402 

.251E+01 

.173E+02 

.1B1E401 

-.5774 

—.5774 

-.5774 

.237E+03 

.517E401 

.412E+02 

.6S4B401 

.695E401 

-.148E401 

.5774 

-.5774 

-.5774 

.228E403 

.154B401 

.321E402 

.335E+01 

.129E+01 

-.104E401 

-.5774 

.5774 

-.5774 

.241E+03 

.43CE401 

.400B402 

-.290E+01 

.581B+01 

-.106E+01 
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.5774 

.5774 

-.5774 

.232E+03 

.166E+01 

.303E402 

.437E+01 

-.105E+0X 

-.623E+00 

-.5774 

-.5774 

.5774 

.337E+03 

M95E+02 

.781E+02 

.687E+01 

.349E402 

.555E401 

.5774 

-.5774 

.5774 

.329E+03 

.701E+00 

.479E+02 

.i72E+01 

.293E402 

.S56E401 

-.5774 

.5774 

.5774 

.346E+03 

.194E+02 

.807E+02 

-.266E+01 

.341E+02 

.379E+Q1 

.5774 

.5774 

.5774 

.338E+03 

.ISIE+Ol 

.499E402 

.273E401 

.272E+02 

.380E+01 

STRAIN  OUTPUT  IN 

LOCAL  COORDINATES  FOR 

LAYER 

1 

RECOVERY 

POINTS 

STRAIN  COMPONENTS 

Cl 

CJ 

CK 

EXX 

EYY 

EZZ 

EYZ 

EZX 

EXY 

-1.0000 

-1.0000 

-1.0000 

.26eE-02 

-.llOE-02 

-.696E-03 

.229E-03 

-.189E-03 

-.268E-03 

-1.0000 

-1.0000 

1.0000 

.491E-02 

-.178E-02 

-.696E-03 

.188E-03 

.544E-03 

.370E-03 

-1.0000 

1.0000 

-1.0000 

.277E-02 

-.llOE-02 

-.716E-03 

-.113E-03 

-.203E-03 

-.287E-04 

-1.0000 

1.0000 

1.0000 

.515E-02 

-.178E-02 

-.716E-03 

-.153E-03 

.165E-03 

-.228E-06 

1.0000 

-1.0000 

-1.0000 

.268E-02 

-.945E-03 

-.463E-03 

.513E-03 

.S19E-03 

-.212E-03 

1.0000 

-1.0000 

1.0000 

.491E-02 

-.202E-02 

-.463E-03 

.240E-03 

,l25E-02 

.519E-03 

1.0000 

1.0000 

-1.0000 

.277E-02 

-.945E-03 

-.600E-03 

-.227E-04 

.552E-03 

.266E-04 

1.0000 

1.0000 

1.0000 

.515E-02 

-.202E-02 

-.600E-03 

-.295E-03 

.921E-03 

.149E-03 

.0000 

.0000 

.0000 

.388E-02 

-.146E-02 

-.619E-03 

.732E-04 

. -14  58-03 

.693E-04 

-.5774 

-.5774 

-.5774 

.318E-02 

-.123E-02 

-.6S6E-03 

.189E-03 

'J>83E-04 

-.938E-04 

.5774 

-.5774 

-.5774 

.318E-02 

-.119E-02 

-.536E-03 

.301E-03 

.S13E-03 

-.504E-04 

-.5774 

.5774 

-.5774 

.325E-02 

-.123E-02 

-.682E-03 

-.319E-04 

.515E-04 

-.301E-04 

.5774 

.5774 

-.5774 

.325E-02 

-.119E-02 

-.601B-03 

.155E-04 

.482E-03 

.132E-04 

-.5774 

-.5774 

.5774 

.448E-02 

-.167E-02 

-.656E-03 

.137E-03 

.477E-03 

.211E-03 

.5774 

-.5774 

.5774 

.448E-02 

-.176E-02 

--536E-03 

.172E-03 

.892E-03 

.286E-03 

-.5774 

.5774 

.5774 

.460E-02 

-.167E-02 

-.682E-03 

-.836E-04 

,309E-03 

.720E-04 

.5774 

.5774 

.5774 

.460B-02 

-.n6E-02 

-.601E-03 

-.114E-03 

.739E-03 

.146E-03 

STRESS  OUTPUT  IN 

LOCAL  COORDINATES  FOR 

LAYER 

2 

RECOVERY 

POINTS 

STRESS  COMPONENTS 

Cl 

CJ 

CK 

SXX 

SYY 

SZZ 

SYZ 

szx 

SXY 

-1.0000 

-1.0000 

-1.0000 

.679E+02 

.60SE-»02 

.lllE+03 

.140E402 

.530E402 

-.S58E400 

-1.0000 

-1.0000 

1.0000 

.269B^02 

.408E4'02 

.125E+03 

.139E402 

.641E402 

-.626E400 

-1.0000 

1.0000 

-1.0000 

.743E+02 

.629E>02 

.119E+03 

-.926E401 

.538E402 

.254E401 

-1.0000 

1.0000 

1.0000 

.318E+02 

.438E>02 

.135B+03 

-.936E401 

.678*E402 

.338E401 

1.0000 

-1.0000 

-1.0000 

.470E+02 

.26384^02 

.396E402 

-.251E401 

.439E402 

-.197E401 

1.0000 

-1.0000 

1.0000 

.548E+01 

. 129E+01 

.4188402 

-.193E401 

.551E402 

-.235E401 

1.0000 

1.0000 

-1.0000 

.485E>02 

.269E402 

.463E402 

.S94E401 

.411E402 

.119E401 

1.0000 

1.0000 

1.0000 

.546E+01 

.245E+01 

.506B402 

.652E401 

.552E402 

.165E401 

.0000 

.0000 

.0000 

.384E+02 

.331E+02 

.836E402 

.215E401 

.543E402 

.399E400 

-.5774 

-.5774 

-.5774 

.559E+02 

.493E+02 

.100B403 

.699E401 

.S36E402 

-.217E400 

.5774 

-.5774 

-.5774 

.432E+02 

.287E+02 

.573E+02 

.143E401 

.479E402 

-.104E401 

-.5774 

.5774 

-.5774 

.Se8E-^02 

.506B402 

.10SE4-03 

-.255E401 

.539E402 

.171E401 

.5774 

.5774 

-.5774 

.444E4^02 

.294B+02 

.61 68402 

.24SE401 

.471E402 

.884B400 

-.5774 

-.5774 

.5774 

.320E')-02 

.374E+02 

.107E403 

.702E401 

.604E402 

-.164E400 

.5774 

-.5774 

.5774 

.190E-I-02 

.150B+02 

. 6028402 

.169E401 

.547E402 

-.112E401 

-.5774 

.5774 

.5774 

.344E402 

.388E402 

.113E403 

-.2S2E401 

.617E402 

.204E401 

.5774 

.5774 

.5774 

.198E+02 

.158E+02 

.652E402 

.270E401 

.548E402 

.109E401 

STRAIN  OUTPUT  IN 

UKAL  COORDINATES  FOR 

LAYER 

2 

RECOVERY 

POINTS 

STRAIN  COMPONENTS 

Cl 

CJ 

CK 

EXX 

EYY 

EZZ 

EYZ 

EZX 

EXY 

-1.0000 

-1.0000 

-1.0000 

.491B-02 

-.178E-02 

.289E-01 

.620E-02 

.666E-01 

.370E-03 

-1.0000 

-1.0000 

1.0000 

-.713E-02 

-.507B-02 

.289E-01 

.698B-02 

.537E-01 

.105E-02 

-1.0000 

1.0000 

-1.0000 

.515E-02 

-.178E-02 

.310E-01 

-.257E-02 

.679E-01 

-.228E-06 

-1.0000 

1.0000 

1.0000 

-.773E-02 

-.507E-02 

,310E-01 

-.178E-02 

.554E-01 

.254E-03 

1.0000 

-1.0000 

-1.0000 

.491E-02 

-.202E-02 

.710E-02 

.616E-02 

.462B-01 

.519E-03 

1.0000 

-1.0000 

1.0000 

-.713E-02 

-.558E-02 

.710E-02 

.72IE-02 

.333E-01 

.673E-03 

1.0000 

1.0000 

-1.0000 

.515E-02 

-,202E-02 

.989E-02 

-.333E-02 

.461E-01 

.149E-03 

1.0000 

1.0000 

1.0000 

-.773E-02 

-.558E-02 

.989E-02 

-.229E-02 

.33SE-01 

-.126E-03 

.0000 

.0000 

.0000 

-.120E-02 

-.361E-02 

.192E-01 

.207E-02 

.504E-01 

.362E-03 

-.5774 

-.5774 

-.5774 

.238E-02 

-,254E-02 

.248E-01 

.448E-02 

.598E-01 

.425E-03 

.5774 

-.5774 

-.5774 

.238E-02 

-.271E-02 

.123E-01 

.440E-02 

.479E-01 

.446E-03 

-.5774 

.5774 

-.5774 

.241E-02 

-.254E-02 

.261E-01 

-.667E-03 

.6048-01 

.159E-03 

.5774 

.5774 

-.5774 

.241E-02 

-.271E-02 

.138E-01 

-.9S8E-03 

.4e0E-01 

.180E-03 

-.5774 

-.5774 

.5774 

-.487E-02 

-.447E-02 

.2488-01 

.497E-02 

.524E-01 

.703E-03 

.5774 

-.5774 

.5774 

-.4S7E-02 

-.473E-02 

.123E-01 

.498B-02 

.405E-01 

.548E-03 

-.5774 

.5774 

.5774 

-.492E-02 

-.447E-02 

.261E-01 

-.181E-03 

.532E-01 

.294E-03 

.5774 

.5774 

.5774 

-.492E-02 

-,473B-02 

.1388-01 

-.4I6E-03 

.407E-01 

.136E-03 

INCKEIffiNT  1  SUmiURY 


TIME  IMCiWSliT  CX)lffLETBD  2.220B>16,  FRACTION  OF  STEP  COMPLETED  1.00 

STEP  TUB  CQMPI^TED  2.220E-16,  TOTAL  TIME  CCMPLETED  .OOOE+00 

ELEMENT  OUTPUT 

THE  POUXNtXNG  TABLE  IS  PRINTED  FOR  BLSET  ONE  AND  ELElffiNT  TYPE  C3D8  AT  THE  INTEGRATION 

eUMBMT  PT  FOOT-  HISES 

non 
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1 

1 

71.96 

2 

83.45 

3 

65.04 

i 

4 

77.85 

1 

5 

71.94 

1 

6 

83.43 

1 

7 

65.02 

1 

8 

77.83 

MAXimiM 

83.45 

ELEMENT 

1 

MINIMUM 

65.02 

ELEMENT 

1 

NODE  OUTPUT 


THE  FOLLOWING  TABLE  IS  PRINTED  FOR  ALL  NODES 


NODE  FOOT¬ 

U1 

U2 

U3 

NOTE 

3 

5.1742E-04 

3.112SE-04 

.OOOOE't^OO 

5 

9.9136E-04 

2.9044E-04 

.OOOOE+00 

7 

1.5074E-03 

2.909SE-04 

.OOOOE+00 

9 

2.0354E-03 

2.B574B-04 

.OOOOE+OO 

11 

2.S695E-03 

2.8841E-04 

.OOOOE+00 

13 

3.1237E-03 

2.9103E-04 

.OOOOE+00 

15 

3.7166B-03 

2.9437E-04 

.ODOOB-t-OO 

17 

4.3891B-03 

3.1S94E-04 

.OOOOE'i'OO 

19 

S.1916E-03 

3.4756B-04 

.OOOOE^OO 

21 

6.2068E-03 

5.1528E-04 

.OOOOE-t^OO 

59385 

.2942 

-3.1596E-04 

.oo6oe>oo 

59387 

.2949 

-2.9427E-04 

.0000B*00 

59389 

.2955 

-2.9117E-04 

.OOOOE4-00 

59391 

.2960 

-2.88aOE-Q4 

.OOOOB400 

59393 

.2966 

-2.8749E-04 

.0000E>00 

59395 

.2971 

-2.8704E-04 

.OOOOBtOO 

59397 

.2976 

-2.8693E-04 

.OOQOE+00 

59399 

.2981 

-2.8668E-04 

.OOOOE-^OO 

59401 

.2987 

-2.8657B-04 

.0000B>00 

MAXIMUM 

.2987 

1.4847E-03 

.8600 

AT  NODE 

5401 

4800 

1225 

MINIMUM 

.OOOOB-i-00 

-1.4846E-03 

-.8600 

AT  NODE 

1 

54702 

58177 

THE  ANALYSIS  HAS  BEEN  COMPLETED 
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Commander,  U,S.  Army  Tank-Automotive  Command,  Warren,  Ml  48397-5000 
1  ATTN:  AMSTA-ZSK 
1  AMSTA-TSL,  Technical  Library 

President,  Airborne,  Electronics  and  Special  Warfare  Board,  Fort  Bragg,  NC  28307 
1  ATTN:  Library 

CNrer^or,  U.S.  Army  Resew-ch  Laboratory,  Weapons  Technology,  Aberdeen  Proving  Grcxjnd, 
MD  21005-5066 
1  ATTN:  AMStL-WT 
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Commander,  Dugway  Proving  Ground,  UT  84022 
1  ATTN;  Technical  Library,  Technical  Information  Division 

Commander,  U.S.  Army  Research  Laboratory,  2800  Powder  Mill  Road,  Addphi,  MD  20783 
1  ATTN:  AMSRL-SS 

Director,  Benet  Weapons  Laboratory,  LCWSL,  USA  AMCCOM,  Watervliet,  NY  121  89 
1  ATTN:  AMSMC-LCB-TL 

1  AMSMC-LCB-R 

1  AMSMC-LCB-RM 

1  AMSMC-LCB-RP 

Commander,  U.S.  Army  Foreign  Science  and  Technology  Center,  220  7th  Street,  N.E., 
ChaHottesville,  VA  22901-5396 

3  ATTN;  AIFRTC,  Applied  Technologies  Branch,  Gerald  Schlesinger 

Commander,  U.S.  Army  Aeromedical  Research  Unit,  P.O.  Box  577,  Fort  Rucker,  AL  36360 
1  ATTN:  Technical  Library 

U.S.  Army  Aviation  Training  Library,  Fort  Rucker,  AL  36360 
1  ATTN:  Building  5906-5907 

Commander,  U.S.  Army  Agency  for  Aviation  Safety,  Fort  Rucker,  AL  36362 
1  ATTN:  Technical  Library 

Commander,  Oarke  Engineer  School  Library,  3202  Nebraska  Ave.,  N,  Fort  Leonard  Wood, 

MO  65473-5000 
1  ATTN:  Library 

• 

Commander,  U.S.  Army  En^neer  Waterways  Experiment  Station,  P.O.  Box  631,  Vicksburg, 
MS  39180 

1  ATTN:  Research  Center  Library 

Commandant,  U.S.  Army  Quartermaster  School,  Fort  Lee,  VA  23801 

1  ATTN:  Quartermaster  School  Library 

Naval  Research  Laboratory,  Washington,  DC  20375 

2  ATTN:  Dr.  G.  R.  Yoder  -  Code  6384 

CNef  of  Naval  Research,  Arlington,  VA  22217 
1  ATTN:  Code  471 

Commander,  U.S.  Air  Force  Wright  Research  &  Development  Center,  Wright-Patterson  Air 
Force  BaM,  OH  45433-6523 
1  ATTN;  WmOC/MLLP,  M.  Forney,  Jr, 

1  WRDC/HLBC.  Mr.  Stanley  Schulman 

U.S.  Department  of  Commerce,  National  Institute  of  Standards  and  Technology,  Gaithersburg, 
MO  20899 

1  ATTN;  Stephen  M,  Hsu,  Chief,  Ceramics  Dividon,  institute  for  Materials  Science  and 
Erniineering 


1  Committee  on  Marine  Structures,  Marine  Board,  National  Research  Council,  2101  Constitution 
Averuje,  N.W.,  WasNngton,  DC  2041 8 

1  Materials  Sciences  Corporation,  Suite  2S0,  500  Office  Center  Drive,  Fort  Washington, 

PA  19034 

1  Charles  Stark  Draper  Laboratory,  555  Technology  Square,  Cambridge,  MA  02139 

Wyman-Gordon  Company,  Worcester,  MA  01 601 
1  ATTN:  Tedinicai  Library 

General  Dynamics,  Convair  Aerospace  Division,  P.O.  Box  748,  Fort  Worth,  TX  76101 
1  ATTN:  Mfg.  Engineering  Technical  Library 

Plastics  Technic^  Evaluation  Center,  PLASTEC,  ARDEC,  Bldg.  355N,  Picatinny  Arsenal, 

NJ  07806-5000 
1  ATTN:  Harry  Pebly 

1  Department  of  the  Army,  Aerostructures  Directorate,  MS-266,  U.S.  Army  Aviation  R&T 
Activity  -  AVSCOM,  Langley  Research  Center,  Hampton,  VA  23665-5225 

1  NASA  •  Langley  Research  Center,  Hampton,  VA  23665-5225 

U.S.  Army  Vehicle  Propulsion  Directorate,  NASA  Lewis  Research  Center,  2100  Brookpark 
Road,  aeveiand,  OH  44135-3191 
T  ATTN;  AMSRL-VP 

Director,  Defense  Inteliigence  Agency,  Washington,  DC  20340-6053 
1  ATTN:  ODT-SA  (Mr.  Frank  Jaeger) 

U.S.  Army  Communications  and  Electronics  Command,  Fort  Monmouth,  NJ  07703 
T  ATTN:  Technical  Library 

U.S  Army  Research  Laboratory,  Electronic  Power  Sources  Directorate,  Fort  Monmouth, 

NJ  07703 

1  ATTN;  Technical  Library 

Director,  U.S.  Army  Research  Laboratory,  Watertown,  MA  021 72-0001 

2  ATTN;  AMSRL-OP-WT-IS,  Technical  Ubrary 
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